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I.   Introduction 

During  the  operation  of  a  nuclear  reactor,  the  nuclear  fuel,  fuel 
cladding,  and  even  the  reactor  vessel,  undergo  certain  nuclear  changes. 
These  changes  are  a  result  of  the  fissioning  of  fissile  atoms,  the 
interaction  of  neutrons  with  matter,  and  of  radioactive  decay  of 
radioactive  isotopes.  For  example,  an  atom  of  U-235  could  undergo 
neutron  induced  fission  resulting  in  an  atom  of  1-135,  Y-98  and  three 
neutrons.   The  atom  of  1-135  could  then  undergo  beta-decay  resulting  in 
an  atom  of  Xe-135.   This  atom  of  Xe-135  could  then  absorb  a  neutron  and 
release  a  high  energy  photon.  Figure  1  is  an  example  of  this  transition 
chain. 

Fission       + 
92°  +  0n        *     531   39*  +  3  0n 

135  Beta"   135      0 

531  " "  5>  +  -l" 

decay 

135     j  (n.y)   136     Q 
54Xe  +  0n  *     54Xe  +  0Y 

Figure  1.   A  simple  example  of  a  transition  chain 

The  calculations  performed  to  track  these  transitions  are  called  isotope 
inventory  calculations. 

Those  interested  in  isotope  inventory  calculations  include  people 
involved  in  reactor  operations,  those  who  deal  with  radiation  shielding, 
and  those  who  reprocess  spent  nuclear  fuel. 

The  interest  of  those  in  reactor  operations  stems  from  the  buildup 
of  nuclear  poisons,  i.e.,  those  isotopes  with  a  large  affinity  for  the 
absorption  of  neutrons  (large  neutron  absorption  cross  sections,  e.g., 
Xe-135).   If  these  isotopes  are  allowed  to  build  up  they  will  reduce  the 


number  of  neutrons  available  for  the  fissioning  process.   Hence,  the 
reactor  will  sustain  poor  neutron  economy  and  may  not  be  capable  of 
maintaining  a  chain  reaction.   Isotope  inventory  calculations  could 
estimate  the  poison  value  of  isotopes  such  as  Xe-135  and  could  predict  a 
shutdown  time  which  would  provide  enough  reactivity  to  allow  an 
immediate  return  to  full  power. 

Shielding  considerations  require  isotope  inventory  calculations  for 
the  life  of  the  nuclear  fuel.  From  operation  to  long-term  storage  of 
spent  fuel,  shielding  calculations  are  performed  based  on  expected 
inventories  of  isotopes  whose  radioactive  decay  results  in  a  high  energy 
gamma  emission.   Special  emphasis  is  on  those  isotopes  whose  half-lives 
are  longer  than  a  few  minutes. 

Finally,  those  interested  in  fuel  reprocessing  like  to  know  the 
amounts  of  certain  fissile  isotopes  they  have  present,  as  well  as  the 
amounts  of  isotopes  which  are  involved,  in  a  major  way,  with  the 
chemical  reprocessing  of  spent  fuel.   If  special  precautions  are  not 
taken  in  controlling  the  concentration  of  the  fissile  isotopes,  the  vat 
containing  the  reprocessed  fuel  could  become  critical  or  super-critical 
resulting  in  costly  damage  to  the  facility  as  well  as  to  those  operating 
the  facility. 

The  methods  used  in  isotope  inventory  calculations  range  from 
simple  hand  calculations,  such  as  the  exponential  decay  of  Co-60,  to 
very  complex  computer  simulations.   Among  these  computer  simulations  are 
SANDIA-0RIGEN[1],  K0RIGEN[2],  0RIGEN-S[3],  and  0RIGEN2[4].   Each  of 
these  codes  is  based  on  the  computer  code  0RIGEN[5]  produced  by  the  Oak 
Ridge  National  Lab  (ORNL) . 

The  most  popular  computer  code  used  for  isotope  inventory 
calculations  is  0RIGEN2.   0RIGEN2,  also  produced  by  ORNL,  is  a  revision 


and  update  of  the  method  of  calculation  that  ORIGEN  had  used,  that  is, 
the  matrix  exponential  method  [4].   Among  the  changes  made  to  ORIGEN 
were,  the  addition  of  variable  cross  sections,  variable  fission  yields, 
a  more  flexible  input  deck,  the  addition  of  cross  section  libraries  for 
more  reactor  types,  and  the  inclusion  of  a  method  for  using  data 
generated  by  more  sophisticated  codes  as  an  initial  data  base.   The 
functions  of  0RIGEN2  include:  1)  the  calculation  of  isotopic  abundances, 
2)  the  calculation  of  radioactivity  and  related  parameters,  3)  the 
calculation  of  inhalation/ingestion  hazard,  and  4)  the  calculation  of 
simple  neutronic  parameters. 

The  calculation  of  isotopic  abundance  is  the  primary  function  of 
0RIGEN2.   From  that  calculation  stem  all  of  the  other  calculations. 
Once  calculated,  isotopic  abundance  can  be  output  in  grams,  gram-atoms, 
atom  fractions,  and  weight  fractions.  These  tables  can  be  produced  for 
either  the  individual  isotopes  or  the  total  contribution  from  each 
element.   Further  provision  is  even  made  for  the  output  of  the  isotopic 
composition  of  each  element. 

Radioactivity  tables  are  provided  for  alpha  activity,  total 
activity,  and  photon  emission.   The  alpha  and  total  activity  tables  are 
provided  in  curies,  or  fraction  of  total  and  are  provided  for  both 
isotopes  and  elements.   The  photon  emission  tables  encompass  the  total 
energy  spectrum  of  photons  and  segments  it  into  eighteen  groups.   Also, 
a  table  containing  the  decay  heat  of  each  isotope  and /or  element  is 
produced. 

Inhalation/ingestion  hazards  are  calculated  based  on  the  Federal 
Regulations  Guide  10CFR20[6].   The  output  is  the  volume  of  air  or  water 


required  to  dilute  the  isotope/element  to  acceptable  levels.   An  option 
is  provided  to  output  the  fraction  of  total  dilution  required. 

The  neutronic  parameters  provided  are  burnup,  infinite 
multiplication  factor,  neutron  production/destruction,  specific  power, 
and  neutron  flux.   The  neutronic  parameters  provided  for  each 
isotope/element  are  neutron  absorption  rate,  neutron  induced  fission 
rate,  (alpha,  n)  neutron  production,  and  spontaneous  fission  neutron 
production.   These  are  considered  simple  neutronic  parameters  because 
they  are  calculated  for  a  point  reactor,  and  each  parameter  is  found  by 
multiplying  an  isotopic  abundance  by  some  neutronic  scaling  factor  such 
as  microscopic  cross  section  and  neutron  flux. 

An  important  feature  of  0RIGEN2  is  its  ability  to  store  inventory 
vectors  in  permanent  files.   This  allows  the  output  of  0RIGEN2  to 
provide  direct  input  to  another  code  which  makes  use  of  isotope 
inventory  data. 

Some  of  the  limitations  observed  in  this  code  are:   1)  It  requires 
a  large  virtual  machine  to  perform  the  transition  calculations;  2)  it 
requires  a  great  deal  of  computer  time  to  complete  these  calculations; 
and  3)  it  provides  a  great  deal  of  output.   A  small  job  performed 
required  a  memory  of  approximately  870K-bytes  of  machine  storage 
(2048K-bytes  is  the  maximum  permissible  for  the  KSU  Computing  Facility) , 
Ah   minutes  of  CPU  time  and  an  output  of  approximately  160  pages.   Thus, 
one  can  see  that  operating  0RIGEN2  can  be  a  costly  procedure. 

The  objective  of  this  research  is  to  reduce  the  cost  of  isotope 
inventory  calculations.   This  is  done  by  removing  the  need  for  a 
mainframe  computer.   To  do  this  the  size  of  the  job  needs  to  be 
considerably  reduced. 


In  0RIGEN2  the  two  major  users  of  space  are  the  code  itself  and  the 
associated  data  libraries.   By  storing  those  libraries  outside  of  main 
memory  on  an  external  disk,  more  room  is  provided  for  other  needs. 

Reduction  of  the  size  of  the  code  can  be  achieved  by  eliminating 
options  which  can  be  performed  externally  using  an  isotope  inventory 
generated  by  the  inventory  code.   Further  reduction  can  be  obtained  by 
isolating  functions  and  eliminating  the  code  needed  to  perform  these 
functions  after  the  function  was  completed.   Such  functions  could 
include  data  input,  calculation,  and  output. 

Moving  from  the  mainframe  to  a  microcomputer  provides  problems 
other  than  size.   Calculational  effort  requires  much  more  time  on  a 
microcomputer  than  on  the  mainframe.   To  overcome  this,  approximations 
can  be  used  and  the  number  of  isotopes  considered  can  be  reduced  by  the 
consideration  of  subsets  of  isotopes.   Each  isotope  of  concern  has  a 
limited  number  of  other  isotopes  which  contribute  significantly  to  its 
abundance.  By  considering  only  these  isotopes,  the  number  of 
calculations  required  is  reduced  more  than  proportionally. 

By  reducing  the  size  of  the  job,  moving  from  the  mainframe  to  a 
microcomputer,  and  reducing  the  number  of  calculations  the  cost  of 
isotope  inventory  calculations  can  be  reduced. 


II.  Development  of  Equations 

To  perform  isotope  inventory  calculations  one  needs  to  determine 
three  things.  First,  if  given  constant  power  one  must  determine  neutron 
flux.   Second,  if  given  constant  flux  one  must  determine  a  fission 
product  production  rate.   And  finally,  given  constant  initial 
conditions,  constant  production  rates  and  constant  flux,  one  must 
calculate  abundances  for  each  isotope  of  interest. 

To  calculate  a  neutron  flux  from  a  constant  thermal  power,  one 
needs  several  equations  which  link  these  two  variables.   The  first  of 
these  equations  could  be  the  determination  of  the  fission  rate  [7],  IU,, 

mcr 
*,-  —  ♦-  (2-D 

where  m  is  the  mass  of  the  isotope  of  interest, 

0".  is  the  microscopic  fission  cross  section  of  the  isotope  of 
interest, 

A  is  the  atomic  weight  of  the  fissile  isotope  of  interest, 
and 

$  is  the  neutron  flux. 

Given  the  fission  rate  of  all  fissile  isotopes,  one  can  find  the 
total  power  by  summing  the  products  of  all  the  fission  rates  and  the 
energy  released  per  fission,  or, 

N 
Pth  "  Jj  Rfi  Efi'  <2-2> 

where  P   is  the  thermal  power, 

N  is  the  total  number  of  contributing  fissile  isotopes,  and 
E  is  the  amount  of  energy  released  per  fission. 


E  can  be  found  by  the  following  empirical  relationship  [8], 


„-3   „2 


Ef  =  1.29927  x  10   x  Z  A  +  33.12,  {MeV/Fission}     (2.3) 

where  Z  is  the  atomic  number  of  the  fissile  isotope  for  which  E  is 
being  calculated. 


Combining  Eq.  (2.1)  and  Eq.  (2.2)  and  solving  for  neutron  flux  yields 
the  following  equation, 


th 


j     VfiEfi 


(2.4) 


i=l    A. 


Applying  units,  as  such, 


P„.  {MW/unit} 
th 


N 


y     m^g/unit}   x  a      {barns}   x  E      {MeV/Fission} 
i=l  A~Tg7SoTI 


(2.5) 


demonstrates  the  need  for  conversion  factors.   Applying  these  conversion 
factors  gives 


*  = 


th 


?  miafi 


MW  x  Fission 


MeV  x  barns  x  mol 


i=l  Ai 


10  {J/MW's} 


1.6021  x  10"13{J/MeV} 


1024{barns/cm2} 


6.0225  x  1023  {fission/mol} 


(2.6) 


'th 


^  mi°fiEfl 
i=l     i 


x  1.036  x  1019  {cm-2  s  l) 


(2.7) 


Similarly,  power  can  be  calculated  by  rearranging  Eq.  (2.7)  to 
give, 

N  m.o  Ef. 

Pth  = 19  I  A     {MW/unit}.  (2.8) 

1.036  x  10   1=1     I 

Now  that  neutron  flux  is  known,  one  can  find  the  fission  product 
production  rate.  It  is  found  by  multiplying  each  fission  rate  by  its 
appropriate  fission  yield  and  summing  over  all  contributions,  or, 


N 

I 
1-1 


Prod  =  JL  Rfi  V'  (2>9) 


where  Prod  is  the  fission  product  production  rate  and 
f   is  the  fission  yield. 

Combining  Eq.  (2.1)  and  Eq.  (2.7)  gives, 

N  m.o  f  . 
Prod  =  I       1  lX   ^  *  .  (2.10) 

1-1    Ai 


Applying  units  and  conversion  factors  gives, 


N     m   {g/unit}  x  cf    {barns}  x  f        x  <|>{cm       s      } 

Prod  "   I  — Ji    I      ix " 

j'j  Aitg/mole} 


x  10    {cm  /barn}, 


which,   upon  cancellation  of   terms,   is, 


N     m . a, . f    . 
Prod  =     I       *  l1?1  *  x   10"24     _H£ia 
1-1         Ai 


(2.11) 


A,  lunit    •   secf  l    '" 


To  calculate  isotropic  abundance  one  must  solve  the  following  set  of 
coupled  first  order  differential  equations: 
dN 

ar +  NA =  Prodi  • 

dN2 

dr~  +  N2n2  =  Prod2  +  £1N1  '  (2a3) 


dNt 

d^  +  Nl»i  *  Prodi  +  ei-lNi-l  • 


where,  N  is  the  abundance  of  isotope  i  (mol)  , 

Prod,  is  the  rate  of  production  of  isotope  i, 

e.  is  the  coupling  coefficient  between  isotope  i-1  and 
isotope  i,  and 

JJ.  is  the  total  transition  coefficient  of  isotope  i. 

The  solution  of  these  equations  is  called  a  Bateman  equation  [9]. 

The  coupling  coefficient  e  is  the  rate  at  which  one  isotope  is 
converted  to  another.  This  conversion  can  be  the  result  of  a  neutron 
interaction,  for  which 

ei=0(n,x)i*'  <2-14> 

where,  a,       .  is  the  microscopic  cross  section  for  the  reaction 
where  isotope  1  absorbs  a  neutron  and  emits  a 
particle  of  type  x, 

or  as  a  result  of  radioactive  decay,  for  which 

*i  =  ¥f*xi. 
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where,  T.   is  the  radioactive  half-life  of  this  isotope,  and 

F   is  the  fraction  of  decays  which  results  in  the  emission 
of  particle  type  x. 

The  total  transition  coefficient,  Q     is  the  sum  of  all  possible  coupling 
coefficients,  which  is, 


ln(2) 


Bi  =  °ai  *  +  ~t"  '  (2'16) 


where,  a  .  is  the  neutron  absorption  cross  section  of  isotope  i. 

If  initial  amounts  and  production  rates  are  considered  for  each 
isotope  in  this  system  of  equations,  the  Bateman  solution  of  these 
equations  becomes  quite  complex.   Instead  it  is  assumed  that  only  the 
first  isotope  has  a  non-zero  production  rate,  and  a  non-zero  initial 
concentration.  All  other  rates  and  initial  concentrations  are  cared  for 
using  the  principle  of  superposition.   Figure  2  demonstrates  the  use  of 
superposition  in  determining  the  concentration  of  Xe-135  from  its  major 
precursors. 

Fission  production  and  initial  concentration  are  not  both 
considered  at  the  same  time.   A  different  set  of  solutions  is  determined 
for  each,  and  the  principle  of  superposition  is  again  used  to  reunite 
these  two  solutions. 

Consider  first  the  situation  where  constant  production  exists  and 
all  initial  amounts  are  set  to  zero.   The  system  of  equations  to  be 
solved  is  the  following, 


dN 

dT  +  NA  "  Prodi- 
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dN 

IT  +  V2  =  Vi  •  (2-17) 


where, 


NL(0)  =  N2(0)  =  ...  =  N±(0)  =  0.  (2.18) 

Performing  Laplace  transforms  on  this  system  yields, 

sn,  ♦  ai,  =  ZI24  , 

1    11    s 

sN2  +  a^s2  =  e^j  ,  (2.19) 


SN.  ♦  ^N.  -  £±_1N1_1  . 

Successive  substitution  of  each  equation  into  the  next  yields, 

i-1 
Prod  n  e . 

1-1  J 

Nt J-> .  (2.20) 

s  n  (s  +  a  ) 
j-1     J 

Assume  that  all  of  the  total  transition  coefficients  are 
independent,  that  is, 

"l  *  a2  *   "3  *   •    •  '  *  \   •  <2-21> 

Therefore,  one  can  assume  a  solution  of  the  form, 

~\ H J/^-^M-     »•■ 

Prod      nesn(s+n)Ji  J 

j-1      J  j-1  J 

which,  if  the  B  are  selected  properly,  form  a  complete  solution  set 
without  A. 
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To  determine  the  B  ,  multiply  by  (s  +  0.)  and  let  s  approach  -fl  , 
J  j  J" 

tain, 

B-jOj   ■— " •  C2.24) 


n    (ii-n  ) 
k=i      K    J 
&3 


Thus, 


Bj 1 •  (2.25) 

B,    n    (a-fi.) 
J  k-i     k    3 

k^i 

Applying  the  inverse  Laplace  transform  to  Eq.  (2.22)  and  rearranging 
yields  the  general  result 

1-1      i  l       1 

N  =  Prod  n  e   J      ~  e .  (2.26) 

1=1   J  1  =  1        1 

J    J   q  n  (a. -a) 
J  k-i  K  J 

One  cannot  always  assume  that  the  £2.  are  independent.   For 
instance,  if  an  isotope  appears  in  its  own  transition  chain  then  there 
will  be  at  least  two  total  transition  coefficients  which  are  the  same. 
An  example  of  this  would  be  1-131  which  could  beta-decay  to  Xe-131, 
which  could  then  undergo  a  (n,p)  reaction  to  form  1-131  again.  Figure  3 
demonstrates  this. 

I31j.  Beta- ,  131   +  0$ 
53  decay   54     -1 


131Xe  +  1   (n,p),  131    1 
54Ae   0n         531   1H 


Figure  3.   An  example  of  an  isotope  appearing  in 
its  own  transition  chain. 
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In  this  case  assume, 

°t   =  V  <2'27> 

and  seek  a  solution  of  the  form, 

*=i  J  =  X   bj  [■ "  s~*~d  +  co  s  -  ird 

Prod     H     e.        s     II      (s+J2  )        J*  J  l 

j  =  l     J  J-l  **■■ 

Cl  A 

+  i~T*f-  (2.28) 

(s+V 

Multiplying  by  S  gives, 

.       i    B.C.   C  Jl.     C.s 

-"  I    ^'^P*— ^'A.  (2.29) 


i  A,        s+fi.    s+!2.    ,  ~  .2 

n  (s*fl.)   j  x    *  *   (s+V 

J-l      J     J#*,B 


which,  upon  rearranging,  becomes, 


-I     ifet  +  ^r-7tV*A-  (2-30) 

£<-v  fiL    J     '  (s+v 

If  the  B  ,  C  ,  and  C^  are  chosen  properly,  they  form  a  complete  set 

of  solutions  on  their  own  and  A  is  not  needed.   The  B  are  found  as 

J 

before  by  multiplying  by  (s  +  Q.)  and  letting  s  approach  -fi.,  to  obtain, 


Bj 1 •  (2.31) 

n.  n  (n.-n.) 
3  k-l   K  J 

Ml 

Similarly,  C^  is  found  by  multiplying  each  side  of  Eq.  (2.30)  by 

2 
(s  +  B4)   and  letting  s  approach  -Q    ,   which  gives, 


-Vi 
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(2.32) 


Cl  = 


n   (0.-0.) 
k-l  k 


a     n     (0.-0  ) 

*  k-i       k 


(2.33) 


In  order  to  determine  C   one  needs  to  derive  the  first  few 
o 

equations,  using  a  direct  application  of  differential  equation 
techniques,  and  from  those  deduce  the  general  form  of  C  .   As  Eq.  (2.20) 
indicates,  the  order  in  which  the  equations  fall  is  unimportant  to  the 
final  solution.   Thus,  Q.,   can  be  set  equal  to  ii     without  any  loss  of 
generality.   Deriving  the  first  four  equations  yields, 


V^n 


-v 


)  ■ 


(2.34) 


fl        -Blt    1     ""I6 

N2  *  Prod  *  ei  [^  »  -  e   >  "  BJ-  *  e 


(2.35) 


N,  »  Prod  •  E,e, 


and, 


J_     1 

B.  "  0,-0.       -B  t     .   ""3' 

(i  .,  1  )  *-kS 


-at 


8l(03"ai) 


VW*     WV 


(2.36) 


N,  =  Prod  •  £,e2e3 


0.   0,-0.   12. -n,       -0,t 

*   1  (1  .  e   1  )  +  L^£ 


■°3* 


0j(03-01)  (O^Oj) 


VW   (W 


1  -  e 


-°4t 


-olt 


04(Or04)2  (Q  -Q  )    VW  <V°1> 


(2.37) 


From  this  one  can  deduce  the  general  form  of  C   to  be, 


1 


C  - 


o     n     (a  -n  ) 
j-i       J 

Applying  an  inverse  Laplace  transform  to  Eq.  (2.28)  gives, 


lft 


(2.38) 


1-1 

N.  =  Prod  n  e. 

1       j=l  J 


-Q.t 


1  -  e 


r-J,  v* 

.1^,m 


I 


-Q,. 


o,    it     (VV 


(2.39) 


the  general  solution  of  Eq.  (2.17)  for  Q.  equal  to  6  . 

x,  m 

A  third  special  case  is  the  case  where  one  isotope  is  both 
radioactively  stable  and  has  a  negligible  neutron  absorption  cross 
section.   This  can  only  occur  at  the  end  of  the  transition  chain.   Thus, 
Eq.  (2.20)  becomes, 


i-1 
Prod  II  e . 
-1  =  1  J 


i    2  i-1 


s   n   (s+!2  ) 
J-l 


(2.40) 


and  one  seeks  a  solution  of  the  form, 


i-1 


i-1 
Prod   n  e  . 


i y ,  fi     i  i    Lo    s 

n    Cs+o.)     J  j       s 


-r  .       (2.4i) 


J-i 


J-i 
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Multiplying  by  s  gives, 


i-1  B.!J.   C 


i-1 

s    n    (s+fi.) 


I   -1 

.    .    s+ 


.  — =■  ♦  C 


(2.42) 


3-1 


The  B  and  C  ,  if  chosen  properly,  form  a  complete  solution  without  C.. 
The  B  are  found  by  multiplying  by  (s+fl  )  and  letting  s  approach  -0  . 
This  results  in, 


J    2  i-1 

a     n 
3  k-l 


(2.43) 


"VV 


Similarly,  to  find  C  ,  multiply  Eq.  (2.42)  by  s  and  let  s  approach 
zero.   Thus, 


1 


o   i-1 

n  a. 
i-l  J 


(2.44) 


Applying  an  inverse  Laplace  transform  to  Eq.  (2.41)  gives, 


i-1 
N.  =  Prod  0  g . 
1        i-1   J 


_t y    1  -  e  J 

■i    "  .*,  ;  i-i 


:  0,   J_1  a2    n  (.a. -a.) 
j-l  J      J  k-i  k    j 
Wi 


(2.45) 


Now  consider  the  second  branch  of  Bateman  equations,  those  in  which 

no  production  is  considered,  and  only  the  first  isotope  in  each  chain  is 

considered  to  have  any  initial  amount.   The  system  of  equations  for  this 

case  is, 

dN 

dT  +  Nini  *  °  ■ 


IS 


dN 

IT  +   H2°2  "Vl  '  (2-46) 

dN. 

■r-r-  +  8.0.  =  N.  ,  e  ,  , 
dt     1  i    i-I  i-1 

where, 

H1(0)  =  X  ,  (2.47) 

and, 

N2(0)  =  N3(0)  -  ...  =  N±(0)  =  0  .  (2.48) 

Performing  a  Laplace  transform  on  this  system  yields, 


sN     +  OH,    =  X   , 


sN2  +  n2N2   =  E1N1    '  (2-49) 


sN.    +  n.N.    =  e,    ,K.    ,    . 
i  i  l  i-1   i-1 

Successive  substitution  of  each  equation  into  the  next  gives, 

i-1 
X  B  e 

Bj  =  ^-L^ .  (2.50) 

n  (s+n  ) 
j=i    J 

Now,  assuming  that  all  of  the  total  transition  coefficients  are 
independent,  as  in  Eq.  (2.21),  a  solution  of  the  form, 
N  IB 

i-i     ■- A  •at'  (2-51) 

x  H  e    n  (s+n  )   J"    j 

j-1  J    j-1       j 

should  be  sought.   To  find  the  B.,  multiply  each  side  by  (s+£2  )  and  let 
s  approach  -a   .   This  yields, 
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Bj  =  — " •  (2.52) 

n  (a  -a.) 
k-l  k  J 

Applying  the  inverse  Laplace  transform  to  Eq.  (2.51)  and  rearranging 
yields  the  general  result, 


i-i    i     -y 

Nt  =  X  n  e   T  -p5 .  (2.53) 

1  =  1  J  -i  =  i   x 

J  J       n    (& -a  ) 

k-l   k  J 

Once  again,  one  cannot  always  assume  independence  for  all  the 
transition  coefficients.   The  situation  found  in  Eq.  (2.27)  could  arise. 
In  this  case,  a  solution  of  the  form, 


N  .         i     B.     C       C 

'  i.    s^-  +  I^  +  -T-2>       <2-54> 


i-1       i  .L,        s+a.        S+Cl  ,   .  .2  ' 

x  I  ,    n  (8+o  )   =£    J     £   <s+iV 


is  sought.   The  B.  are  found,  as  before,  by  multiplying  each  side  of  Eq. 
(2.54)  by  (s+G.)  and  letting  s  approach  -8. .  This  yields, 


Bj  =-j .  (2.55) 


II   (fiu-J24) 
=  1 


k-l   k  i 
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Similarly,  to  find  C.  ,  multiply  by  (s+S2  )   and  let  s  approach  -SI,, 
to  give, 


1    i 

n   Ca.-o.) 


(2.56) 


j  "V 


Again,  no  smooth  formulae  are  provided  to  determine  C  .   One  needs 

o 

to  derive  the  first  few  equations  using  direct  substitution  and 
differential  equation  techniques,  and  from  these  deduce  the  correct 
general  form  of  C  .  Once  again,  the  order  of  substitution  is 
unimportant,  so  for  simplicity  assume  £2.  is  equal  to  £2,.   Deriving  the 
first  few  equations  yields, 


N  =  Xe 


-a.t 


(2.57) 


-a.t       -a.t 

N2  =  Xel    [te     -  e    ] 


(2.58) 


N3  =  XEle2 


-«3t       -SJjt      -a.t 
i     '  ,  te         e 


(nrn3)2   'VV   (fl^-QjT 


(2.59) 


and, 


N4  =  Xe^^ 


-St 


-o4t 


(n^fij)  (n4-«3)   (n1-«4)2  (83-e«) 


-£2.t 


-!2,t 


(n3-n1)  co.-fl.) 


s!,-n.  +  a, -a, 

3   1    4   1 


Ca.-o.)  (ii3-n1) 


(2.60) 
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From  this  one  can  deduce  the  general  form  of  C   to  be, 
1     1 

-I      a  -a 
3-1  J 
c.     =2ihE . 


n  (.a. -a.) 
j-1 


(2.61) 


Applying  the  inverse  Laplace  transform  to  Eq.  (2.54)  gives, 


1-1 

N  -  X  B  e 

3-1  J 


-0jt 


"V 


i 

I 


3-1   J  * 


n 
3-1 


(nj-V 


(2.62) 


3l**»» 

The  major  equations  used  in  isotope  inventory  calculations  are  now 
derived.   Neutron  flux  is  calculated  by  Eq.  (2.7).   Fission  product 
production  rate  is  determined  by  Eq.  (2.12).   The  Bateman  equations  for 
constant  production  rate  are  Eqs.  (2.26),  (2.39),  and  (2.45).   Finally, 
the  Bateman  equations  for  initial  concentration  are  Eqs.  (2.53)  and 
(2.62).   No  special  equation  is  needed  for  D  =  0  In  the  case  where  no 
production  is  considered,  since  the  introduction  of  ft  =  0  does  not 
generate  any  repeat  roots  as  it  does  for  the  case  where  constant 
production  is  not  set  to  zero. 
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III.   Algorithm  Development 

A.   Reduction  of  0RIGEN2  Size  Requirements 

The  primary  objective  of  the  Kansas  State  Isotope  Generation  Code 
(KSIG)  was  to  reduce  the  cost  of  isotope  inventory  calculations.   This 
was  to  be  accomplished  by  transferring  the  problem  to  a  microcomputer, 
reducing  the  problem  size  and  reducing  the  time  required  to  perform  the 
calculations. 

In  moving  to  the  microcomputer,  the  computer  memory  size  became  a 
limiting  factor.   This  factor  was  overcome  by  removing  all  but  the  most 
necessary  options  and  by  using  a  technique  called  memory  management. 

One  option  eliminated  by  KSIG  was  the  choice  of  a  wide  variety  of 
output  tables  provided  by  0RIGEN2.  The  only  table  provided  by  KSIG  is 
the  one  for  isotopic  abundance  in  grams.  All  other  tables  provided  by 
0RIGEN2  can  be  generated  using  the  abundances  calculated  by  KSIG.  This 
reduced  the  problem  to  one  of  calculating  isotope  inventories,  and 
eliminated  the  need  for  some  data  libraries  and  an  excessive  amount  of 
computer  programming. 

Memory  management  is  a  technique  which  releases  memory  space,  for 
other  uses,  when  the  code  or  data  previously  stored  in  that  space  is  no 
longer  needed.  Code  and  data  not  needed  by  the  executing  step  are 
retained  on  an  external  storage  device.   The  release  of  memory  space  is 
facilitated  by  the  fact  that  the  main  memory  area  can  be  divided  into 
two  regions,  volatile  and  non-volatile. 

Volatile  memory  consists  of  all  variables  originally  accessed  by  a 
subroutine.   When  the  subroutine  returns  control  to  the  calling  routine, 
all  memory  used  by  the  variables  created  is  released  automatically  for 
other  uses.   Hence,  the  name  volatile. 
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Main  Memory 
-non-volatile — 


^volatile- 


Load  up  to  line  5140  of  KSIG 


Input  power  history  from 
the  keyboard  and  save  it  on 
disk  1. 


3.   Input  the  data  needed  to 
determine  the  isotope 
library  from  disk  0. 
Determine  the  library  and 
save  it  on  disk  I. 


Purge  lines  120  to  4300  and 
lines  4895  to  5005  from  memory. 

Load  the  second  half  of  KSIG 
from  disk  0. 


Allocate  the  space  needed  to 
store  the  large  arrays  for  the 
rest  of  the  program 

Load  the  isotope  library  from 
disk  1. 

Input  isotope  inventory  from 
the  keyboard  or  from  disk  1. 
Save  keyboard  input  on  disk  1 
for  future  reference. 

Purge  lines  5145  to  6290  from 
memory . 


10.   Output  isotope  inventory 
on  the  printer. 


11.   Input  the  data  needed  to 

calculate  the  new  inventory 
from  disk  0.   Calculate 
new  inventory.   Goto  step 
10. 


Printer 


Figure  4.   Allocation  of  Memory  During  the  Execution  of  KSIG. 
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Non-volatile  memory  consists  of  the  computer  code  and  all  of  the 
variables  and  vectors  accessed  by  the  main  program.   Unlike  volatile 
memory,  no  memory  space  is  released  automatically.   The  only  way  to 
release  non-volatile  memory  is  by  purging  unwanted  subroutines  with  a 
DELSUB  command  or  by  deallocating  unwanted  vectors  with  a  DEALLOCATE 
command . 

Modulizing  the  steps  in  KSIC  (input,  library  construction, 
calculation,  and  output),  that  is,  isolating  each  function  in  its  own 
subroutine,  allows  for  deallocation  when  that  subroutine  is  completed. 
Further,  it  facilitates  the  definition  of  large  temporary  vectors, 
allowing  data  stored  on  external  disks  residence  in  main  memory  for  the 
duration  of  the  step  which  requires  them.   Figure  4  demonstrates  the 
allocation  of  memory  during  the  execution  of  KSIG. 

The  hardware  used  in  the  development  of  KSIG  are  a  HP9816 
microcomputer  with  graphic  capabilities,  a  HP9121  dual  disk  drive  and  a 
HP82905B  dot-matrix  printer.   The  physical  layout  of  this  equipment  is 
found  in  Fig.  5. 


HP82905B 

Dot  matrix 

Printer 


HP9816 


Microcomputer 


Keyboard 


HP9121  Dual  Disk  Drive 


Fig.  5.   Physical  Layout  of  the  Computer  System. 
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The  size  of  the  problem  is  reduced  by  considering  only  small 
subsets  of  isotopes.   0RIGEN2  considers  1306  different  isotopes  at  one 
time.   KSIG  uses  an  algorithm  which  determines  the  few  isotopes  which 
contribute  significantly  to  any  one  isotope  of  major  interest,  and  uses 
these  in  its  calculations.   Since  any  isotope  can  be  designated  as  the 
major  isotope  of  interest,  no  generality  is  lost  on  this  point. 

Some  calculational  effort  is  reduced  by  making  approximations  to 
the  Bateman  equations.   Since  these  equations  are  performed  thousands  of 
times  during  the  course  of  a  program  run,  the  reduction  in  effort  can  be 
quite  substantial. 

The  first  of  these  approximations  is  for  isotopes  whose  transition 
coefficients  are  very  large.   These  isotopes  establish  equilibrium 
early,  therefore,  one  assumes  that, 

dN 

J^-0.  (3.1) 

for  these  isotopes.  Thus, 

sNn  =  0  .  (3.2) 

Substituting  this  into  Eq.  (2.19)  and  Eq.  (2.49)  gives, 

i-1 

Prod  II  e . 

1  =  1  J 
»i j-4 .  (3.3) 


and, 


i 

sS     .n, 

n  j-1 

(s+Q  ) 

i-1 

x    n 
1-1 

Ei 

N± 1 •  (3.4) 

°n  jll  (S+V 
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Notice  that  these  equations  are  similar  to  Eq.  (2.2)  and  Eq. 
(2.50).  Therefore,  the  solutions  are  similar.  The  difference  is  that 
isotope  n  is  not  considered  in  the  regular  Bateman  calculations,  and  the 
result  without  isotope  n  is  divided  by  a  to  give  the  correct 
approximation.  The  only  exception  to  this  occurs  when  the  first 
isotopes  in  the  chain  have  very  large  transition  coefficients.   In  this 
case  the  solution  of  Eq.  (3.4)  for  N  is  found  to  be  equal  to  zero. 

The  second  approximation  to  the  Bateman  equations  is  for  the  case 

of  constant  production,  with  isotopes  of  very  small  transition 

coefficients. 

-SI  t 
Expanding  (1-e    )  in  a  Taylor  series  about  £2  t  =  0  gives, 

-a  t               (a  t)2   (a  t)3   (a  t)4 
l-'    -V--T5 1| 4T-+--  •>   <3-5> 


for  a  t  very  small.   Dividing  Eq.  (3.5)  by  a  t  gives, 

.  "V     at   (at)2   (at)3 

l"e       .    n      n        n  ,.  ,, 

_!r_.l___  +  _1 __  +...   .         (3.6) 


Comparing  Eq.  (3.6)  to  Eq.  (2.26)  suggests  the  approximation: 
(1-e"""')  .       I1  HL*>J 


=  -r^ Lwfrr-  (3-7> 


ji'n  j^n 


This  approximation  will  yield  better  numerical  results  than  the 
left-hand  side  of  Eq.  (3.7). 

The  final  approximation  concerns  isotopes  appearing  in  their  own 
transition  chain  as  in  Fig.  3.   When  this  happens  the  problem  of  a 
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equalling  Sl^   occurs.   This,  in  itself,  isn't  a  problem  because  formulas 
exist  to  account  for  this.   The  problem  arises  by  continuing  this  chain 
until  the  isotope  appears  a  third,  fourth  and  fifth  time.   Obviously,  it 
would  become  very  difficult  to  develop  new  equations  for  every 
situation.   To  overcome  this  problem,  one  can  use  a  method  used  to 
determine  subcritical  neutron  multiplication  [10], 

The  sum  of  the  first  two  appearances  of  the  repeating  isotope  can 
be  represented  as, 

Sl   =  n£0)  (1+r).  (3.8) 

where  r  is  the  ratio  between  the  concentration  of  the  first 
two  generations,  or 

r- ■{»/■«>.  (3.9) 

Now,  since  the  same  decay  process  lies  between  the  first  and  second 
generations  as  lies  between  the  second  and  third  and  third  and  fourth 
generations,  one  might  assume  that  the  ratio  between  each  of  these 
generations,  and  in  fact  all  generations,  is  the  same.  The  sum  of  the 
first  N  generations  would  then  be, 


SN=N<0)  I     r1  .  (3.10) 

*   i-0 


In  reality,  the  loop  would  repeat  an  infinite  number  of  times,  so, 


S  =  N<0)  I     r1 


.    L     r  •  (3.11) 

i=0 


Since  the  ratio  will  always  be  less  than  one,  a  geometric  series 
solution  can  be  employed  to  transform  Eq.  (3.11)  to, 
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S»  =  TZT-  (3.12) 


Therefore,  the  contribution  of  isotopes  appearing  in  their  own 
decay  chain  can  be  approximated  by  merely  calculating  the  first  two 
generations. 

B.   Data  Libraries  Associated  with  KSIG. 
B.l.  The  Decay  Library 

The  decay  library  used  by  KSIG  is  divided  into  ten  segments.   Each 
contains  the  data  for  all  of  the  isotopes  whose  identification  number 
begins  with  the  number  of  the  segment  (0  through  9) .   This  library  is 
found  in  Appendix  B.l. 

The  data  contained  in  the  decay  library  include,  the  isotope 
identification  number  of  each  isotope,  the  decay  mode(s),  the  decay 
heat,  the  radioactive  half -life,  the  units  of  the  radioactive  half-life, 
and  the  percentage  yields  for  each  possible  decay  mode.  Figure  6 
demonstrates  the  structure  of  this  library. 

Characters  2  through  7  of  each  entry  contain  the  isotope 
identification  number.  The  first  two  characters  of  this  number  contain 
the  atomic  number  of  the  isotope.   The  next  three  characters  are  the 
atomic  weight  of  the  isotope,  and  the  last  character  is  the  atomic 
state.   One  indicates  the  excited  state  and  zero  indicates  the  ground 
state. 

The  half-life  of  each  isotope  is  found  in  characters  24  through  32. 
The  units  for  this  half-life  are  coded  into  character  ten.   These  units 
are  translated  in  Table  1. 
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1234567890123456789012345678901234567890123456789.0123456789012 

982540  453  1.994E+02  6.050E+01  3.100E-02 

982550  310  1.000E-01  1.500E+00 

992530  430  9.782E-02  2.047E+01 

992540  430  6.623E+00  2.757E+02 
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II  -  Isotope  Identification  Number 

B  -  Units  of  the  Radioactive  Half-Life 

M  -  Decay  mode 

DH  -  Decay  heat 

T,  -  Radioactive  Half-life 

f ,  -  fraction  of  decays  for  the  first  alternate  decay  mode 

f-,  -  fraction  of  decays  for  the  second  alternate  decay  mode 
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Fig.  6  The  Identification  of  Each  Datum  in  the  Decay  Library. 

Table  1.  The  Definition  of  Units  for  the 
Radioactive  Half-life. 


Unit  Definition 

1  Half-life  is  given  in  seconds 

2  Half-life  is  given  in  minutes 

3  Half-life  is  given  in  hours 

4  Half-life  is  given  in  days 

5  Half-life  is  given  in  years 

6  Isotope  is  stable 

7  Half-life  is  given  in  10  years 

8  Half-life  is  given  in  10  years 

9  Half-life  is  given  in  109  years 
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The  decay  mode  of  each  isotope  is  given  in  characteristics  11  and  12. 
The  first  character  indicates  the  primary  decay  mode.   The  second 
character,  if  not  zero,  indicates  the  secondary  decay  mode.   If  the 
first  character  is  nine,  then  more  than  two  decay  modes  exist  for  this 
isotope.   Table  2  provides  the  definition  of  the  decay  modes  indicated 
by  each  character. 

Table  2.  Definition  of  Decay  Modes. 


Code      Decay  Mode 


1  Beta-decay 

2  Electron  capture 

3  Alpha-decay 

4  Internal  transfer 

5  Spontaneous  fission 

6  Beta-decay  to  an  excited  state 

7  Electron  capture  to  an  excited  state 

8  Beta  +  neutron  decay 

91  Primary  decay  mode:  Internal  transfer 
Secondary  decay  modes:   1)  Alpha-decay 

2)  Spontaneous  fission 

92  Primary  decay  mode:  Beta-decay 

Secondary  decay  modes:   1)  Beta-decay  to  an  excited  state 
2)  Beta  +  neutron  decay 

93  Primary  decay  mode:  Beta-decay 
Secondary  decay  modes:   1)  Alpha-decay 

2)  Spontaneous  fission 

94  Primary  decay  mode:  Alpha-decay 
Secondary  decay  modes:   1)  Internal  transfer 

2)  Electron  capture 

3)  Spontaneous  fission 


The  possibility  of  more  than  one  decay  mode  suggests  the  use  of 
variable  length  entries.   If  only  one  decay  mode  exists,  the  entry  is 
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only  32  characters  in  length.   If  two  decay  modes  exist,  characters  34 
through  42  contain  the  fraction  of  decays  resulting  in  the  alternate 
decay  type.   If  three  or  more  decay  modes  exist,  then  the  fractions  of 
the  third  and  fourth  decay  mode  are  stored  in  characteristics  44  through 
52  and  54  through  62,  respectively.   The  fraction  of  times  the  primary 
decay  mode  occurs  is  not  stored,  since  this  would  simply  duplicate  data 
already  in  existence. 

Finally,  the  decay  heat  is  stored  in  characters  14  through  22. 

B.2.  Neutron  Cross  Section  Library 

The  neutron  cross  section  library,  like  the  decay  library,  is 
divided  into  ten  segments.  Each  segment  contains  the  cross  section  data 
for  each  isotope  whose  identifier  begins  with  the  number  of  the  segment 
(0  through  9).  This  library  is  found  in  Appendix  B.2.   It  contains  the 
isotope  identifier,  the  number  of  neutron  reactions  possible,  the 
identification  code  for  each  type  of  reaction  and  the  microscopic  cross 
section  for  each  type  of  reaction.   The  location  of  each  datum  in  each 
entry  can  be  found  in  Fig.  7  and  the  definition  of  each  transition  type 
can  be  found  in  Table  3. 
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II  -  Isotope  identification  number 

N  -  Number  of  different  neutron  reactions 

M  -  Code  for  each  transition  mode 

^  -  Neutron  cross  section  for  the  NC  type  of  neutron  reaction 

Fig.  7.   The  Identification  of  Each  Datum  in  the  Cross  Section  Library. 
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Table  3.  Definitions  of  Each  Coded 
Neutron  Transition  Mode. 


Code 

Neutron  Transition  Code 

1 

(n,Y) 

2 

(n,2n) 

3 

(n,a) 

4 

(n,p) 

5 

(n,Y)  to  an  excited  state 

6 

(n,2n)  to  an  excited  state 

7 

(n,3n) 

8 

(n,  fission) 

B.3.  Fission  Product  Library 

The  fission  product  library  is  divided  into  six  segments  (0,2 
through  6).  Segments  one,  seven,  eight,  and  nine  are  excluded  because 
there  are  no  fission  fragments  whose  isotope  identifier  begins  with 
these  numbers.   The  data  contained  in  this  library  include  the  isotope 
identification  number  and  the  fission  yields  for  the  neutron  induced 
fission  of  U-233,  U-235,  U-238  Pu-239,  and  Pu-241.   Each  yield  is  given 
as  a  percentage  of  fissions  resulting  in  a  fragment  which  has  the  same 
mass,  atomic  number  and  atomic  state  of  the  isotope  in  question.   Figure 
8  contains  the  structure  for  this  library.   This  library  can  be  found  in 
Appendix  B.3. 
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II  -  Isotope  identification  number 

Y  -  Fission  yield  from  0-233 

Y  -  Fission  yield  from  0-235 
Y,  -  Fission  yield  from  0-238 
Y^  -  Fission  yield  from  Pu-239 

Y  -  Fission  yield  from  Pu-241 

Fig.  8.  The  Structure  of  the  Fission  Yield  Library. 


B.4.  Natural  Abundance  Library 

The  natural  abundance  library  contains  all  isotopes  which  occur  in 
nature  and  the  percentage  of  each  element  which  is  composed  of  a  given 
isotope.   Each  entry  is  nineteen  characters  in  length.   The  first  seven 
characters  contain  the  isotope  identification  number.   The  last  nine 
characters  contain  that  isotope's  percentage  found  in  nature.   This 
library  can  be  found  in  Appendix  B.4. 

B.5.   Vectors  Created  by  KSIG 

There  are  basically  three  types  of  vectors  created  by  KSIG  and 
stored  externally.  These  vectors  are  isotope  vectors,  concentration 
vectors,  and  power/time  history  vectors. 

The  first  type  of  vector,  the  isotope  vector,  contains  the  isotope 
identification  numbers  for  all  isotopes  on  which  any  calculations  will 
be  performed.   The  first  entry  in  this  vector  contains  the  number  of 
isotopes  included  in  the  vector.   Each  isotope  to  be  used  follows.   A 
star  preceding  the  isotope  identification  number  indicates  that  this  is 
an  isotope  of  primary  interest  and  whose  concentration  will  be  output. 
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Several  vectors  included  as  libraries  are  All,  Poison,  Dose,  and 
Act.   Each  of  these  has  some  interest  to  certain  people.   All  includes 
all  1306  isotopes,  Poison  contains  the  major  neutron  poisons  generated 
during  the  operation  of  a  nuclear  facility,  dose  includes  several  of  the 
intermediate-lived  (three  to  four  weeks)  isotopes  with  high  energy  gamma 
rays,  and  Act  includes  the  five  actinides  whose  fission  yields  are  being 
considered. 

The  second  type  of  vector,  a  concentration  vector,  is  created  at 
two  different  points  in  KSIG.  The  first  point  is  when  the  initial 
concentration  vector  is  input  and  the  second  when  the  final 
concentration  vector  is  output.   Each  entry  is  eighteen  characters  in 
length  and  contains  two  bits  of  information,  the  isotope  identification 
number  and  the  concentration  of  the  isotope  in  grams. 

The  final  type  of  vector  is  the  power/time  history  vector.   The 
first  entry  in  this  vector  is  either  POWER  or  FLUX,  indicating  whether 
the  reactor  power  is  given  or  the  neutron  flux  is  given.  The  following 
entries  contain  the  power  or  flux  followed  by  the  length  of  the  time 
step  and  its  units.   The  final  entry  is  'END'  to  indicate  the  end  of  the 
decay  process. 

C.   The  KSIG  Computer  Code 

A  complete  listing  of  KSIG  can  be  found  in  Appendix  A.   The 
following  discussion  will  refer  frequently  to  this  listing. 

C.l.   The  Main  Routine 

The  first  23  lines  of  KSIG  (lines  5  to  115)  constitute  the  main 
routine  of  KSIG.   They  direct  the  flow  of  the  program,  define  the  large 
vectors  required  throughout  the  program,  and  control  the  uses  of  main 
memory.   Memory  control  is  facilitied  by  the  DELSUB  command  in  lines  25 
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and  60  which  eliminates  unneeded  code  and  the  LOADSUB  command  (line  30) 
which  loads  new  code  off  disk.  A  flowchart  of  this  routine  is  found  in 
Fig.  9. 

C.2.  Subroutine  Powin 

The  first  subroutine  called  from  the  main  routine  is  Powin  (lines 
120  to  685).   Its  purpose  is  to  set  up  a  file  with  a  power/time  history 
to  be  used  throughout  the  run.   Lines  130  to  160  warn  the  operator  to 
line  up  the  printer  and  to  insert  his  data  disk  in  drive  1.   Lines  165 
to  185  give  the  option  to  choose  from  a  previously  stored  power  history 
or  to  input  his  own.  The  stored  option  is  covered  in  lines  190  to  275 
and  the  new  option  is  covered  by  lines  280  to  605. 

If  the  stored  option  is  selected,  the  program  asks  for  the  name  of 
the  power  input  data  file.   If  that  file  can't  be  found  on  disk  1,  or  if 
the  first  entry  is  neither  'FLUX'  or  'POWER'  then  an  error  message  is 
printed  and  the  question  as  to  whether  one  chooses  to  use  a  stored  power 
history  or  a  new  one  is  posed  again.   If  'FLUX'  is  the  first  entry,  then 
Ptype  is  set  to  zero,  and  if  'POWER'  is  the  first  entry,  then  Ptype  is 
set  to  one. 

Now  if  the  option  to  input  a  power  history  is  selected,  the  name  of 
the  new  output  file  is  requested  (lines  285  to  305).   Next,  the  type  of 
file  is  asked  for  -  Flux  or  Power  -  and  Ptype  is  set  appropriately 
(lines  310  to  365).   The  first  entry  in  the  file  will  be  'FLUX'  or 
'POWER'. 

Lines  370  to  475  govern  data  format.   First,  general  directions  on 
leaving  this  loop  are  given  (lines  370  to  395).   Then  initial  conditions 
for  the  loop  are  set  (line  400) .   Next  the  power  or  flux  is  input  (lines 
405  to  425) .   If  nothing  is  entered  then  the  program  branches  out  of  the 
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Fig.  9.   Flowchart  of  Main  Routine  for  KSIG. 
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loop.   Line  435  converts  the  input  power  or  flux  into  a  string  which 
looks  like  a  number  in  exponential  format.   The  entry  is  completed  by 
inputting  the  time  length  for  the  step  and  adding  it  to  the  string 
(lines  440  to  465).   Program  control  then  loops  back  for  another  entry. 

When  all  new  entries  have  been  input  an  attempt  is  made  to  create 
the  new  data  file.  If  an  error  occurs  while  creating  the  data  file  an 
attempt  is  made  to  rectify  this  error  by  changing  the  name  of  the  file 
or  warning  the  programmer  to  try  a  different  data  disk  (lines  550  to 
605).  If  no  error  occurs  the  data  are  transferred  to  disk  and  an  'END' 
is  written  to  the  end  to  indicate  the  end  of  the  power  data  (lines  510 
to  530).  Finally,  the  file  is  re-opened  and  the  first  entry  (POWER  or 
FLUX)  is  read,  so  that  the  file  is  ready  to  output  power  data. 

Once  the  power  file  has  been  designated  a  few  more  initialization 
questions  are  asked.   First,  it  is  determined  whether  fission  products 
are  to  be  considered  (lines  620  to  660).   If  they  aren't,  then  two  is 
added  to  Ptype  to  indicate  such.   Finally,  the  output  threshold  is 
requested  (line  680). 

C.3.   Subroutine  Isotope 

The  second  subroutine  called  by  the  main  routine  is  isotope  (lines 
690  to  4300) .   Its  purpose  is  to  access  a  file  containing  the  isotope 
identification  numbers  of  all  the  isotopes  needed  to  calculate, 
accurately,  the  abundances  of  the  isotopes  of  interest.   Variables  are 
dimensioned  and  initial  conditions  are  set  in  lines  695  to  705.   In 
lines  710  to  725,  the  programmer  is  asked  whether  he  is  interested  in 
only  certain  isotopes  or  all  isotopes.   If  he  is  interested  in  all 
isotopes,  then  OIso  is  assigned  to  the  file  containing  all  1306  isotopes 
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(lines  730  to  740).  If  certain  isotopes  are  of  interest,  then  the 
program  asks  whether  the  programmer  is  interested  in  poisons,  dose,  or 
other  isotopes  (lines  745  to  765) .   If  poison  or  dose  are  choosen  the 
@Iso  is  assigned  to  the  appropriate  file  (lines  770  to  795) .   Once  any 
of  these  three  are  selected  —  All,  Dose,  or  Poison  -  the  first  entry  to 
these  files  is  read  (lines  4280  to  4285),  which  tells  the  number  of 
isotopes  in  the  file.   Control  is  then  returned  to  the  main  routine. 

If  the  option  'Other'  is  selected,  then  the  next  question  is,  "Is 
this  a  new  file  or  a  previously  stored  one?"  (lines  800  to  820) .   If 
this  file  was  previously  stored  then  the  program  asks  for  the  name  of 
the  file  (line  835) .   If  that  file  is  not  found  on  the  disk  then  an 
error  message  is  printed  and  the  file  name  is  asked  for  again  (lines  895 
to  910).   If  the  file  is  found,  then  the  first  entry  is  read  (lines  850 
to  865).   If  this  entry  is  not  a  number  or  if  it  is  greater  than  1306, 
then  an  error  message  is  again  printed  and  again  the  file  name  is 
requested  (lines  875  to  890).   Upon  successfully  reading  the  first  entry 
the  program  returns  control  to  the  calling  routine. 

The  final  option,  New,  is  the  option  for  which  all  of  the  variables 
are  dimensioned  (lines  695  to  700).   These  vectors  are  of  three  types. 

The  first  type  of  vector  includes  those  dimensioned  to  1306,  the 
maximum  number  of  different  isotopes.   They  are  1$  and  Weight.   1$ 
contains  all  of  the  isotopes  which  will  be  considered  in  the  following 
calculations.   Weight  contains  the  weighting  factor  associated  with 
these  isotopes.   These  retain  their  values  throughout  the  duration  of 
the  subroutine. 

The  second  type  contain  segments  of  the  libraries  stored  on  disk. 
These  vectors  are  Xsec$,  Dec$,  and  Fiss$.   These  will  grow  every  time  a 
new  segment  is  called  from  disk.   They  retain  their  value  only  during 
the  execution  of  the  big  loop  associated  with  each  isotope  of  interest. 
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The  final  type  of  vector  includes  those  which  define 
characteristics  of  the  particular  decay  chain  being  observed.   D$ 
contains  the  decay  characteristics  of  each  isotope  in  the  chain,  X$ 
contains  the  cross  section  information  for  each  element,  E  contains  the 
coupling  coefficients  associated  with  each  element,  and  0  contains  the 
total  transition  coefficients.  Fl$  and  F2$  contain  information  related 
to  the  linking  of  these  isotopes  together.   Each  of  these  vectors  change 
as  the  decay  chain  considered  changes. 

When  this  option  'new'  is  selected,  the  first  thing  done  is  the 
initialization  of  variables  (lines  915  to  925).  General  instructions  on 
leaving  the  loop  are  then  printed  (lines  930  to  975).   Next  the  atomic 
number  is  entered  (lines  980  to  1010).   If  nothing  is  input  before 
pressing  enter  then  the  input  loop  is  exited.   Upon  completion  of 
inputting  the  atomic  number,  the  isotope  index,  I,  is  increased  by  one 
and  the  dimension  definitions  of  the  data  libraries  are  set  to  zero 
(lines  1015  to  1030) .  Now  the  atomic  weight  is  entered  in  lines  1035  to 
1060  and  the  atomic  state,  excited  or  ground,  is  input  in  lines  1065  to 
1080.   The  isotope  identification  number  is  constructed  in  lines  1085  to 
1105  if  the  isotope  is  excited  and  in  lines  1110  to  1125,  if  ground.   If 
the  space  before  the  identifier  is  a  '*'  this  indicates  that  this 
isotope  is  an  isotope  of  interest. 

After  entering  the  isotope  of  interest,  the  big  loop  begins.  The 
first  thing  done  is  printing  the  isotope  of  interest  and  initializing 
variables  (lines  1130  to  1165).   Line  1170  then  inputs  the  applicable 
data  library  segments  and  updates  the  dimension  definitions  of  the  data 
libraries.   The  decay  library  is  then  searched  for  the  entry  for  the 
isotope  of  interest  (lines  1175  to  1200).   If  this  entry  is  not  found, 
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or  the  isotope  is  found  to  be  stable,  then  a.    is  set  to  zero  and  the 
first  entry  to  D$  is  constructed  to  reflect  this  (lines  1225  and  1230). 
If  the  isotope  is  radioactively  unstable,  the  Q.    is  set  equal  to  the 
decay  coefficient  which  is  calculated  in  lines  1205  and  1210,  and  the 
first  entry  in  D$  is  set  equal  to  the  entry  corresponding  to  this 
isotope  in  the  decay  library  (line  1215). 

Next,  the  cross  section  vector  is  searched  for  the  isotope  of 
interest  (lines  1235  to  1255).   If  it  isn't  found  in  this  library  then 
the  first  entry  in  X$  is  set  to  zero  (line  1285) .   If  it  is  found  then 
all  of  its  cross  sections  are  normalized,  multiplied  by  the  flux  and 
added  to  SI.,   and  the  string  containing  this  cross  section  data  is  stored 
in  the  first  entry  in  X$  (lines  1260  to  1280). 

Line  1290  is  the  beginning  point  for  a  new  isotope  added  to  the 
chain.   The  length  of  the  chain  is  increased  by  one  and  the  chain  data 
are  moved  so  that  the  isotope  of  interest  occupies  the  last  entry  in  the 
chain  (lines  1290  to  1320).   The  isotope  index  is  increased  by  one  and 
the  inner  loop  counter  is  set  to  test  for  Beta-decay  (lines  1325  and 
1330).  The  inner  loop  officially  begins  in  line  1335,  which  controls 
branching  to  test  for  the  transition  modes. 

The  first  transition  mode  to  be  tested  is  Beta-decay  (lines  1340  to 
1550).   If  the  isotope,  whose  parents  are  being  sought,  is  either 
hydrogen  or  in  the  excited  state,  this  test  is  not  performed  (lines  1340 
and  1345).   The  index  indicating  the  state  being  tested  is  then  inverted 
(lines  1350  to  1370).   Line  1375  then  constructs  the  isotope 
identification  number  for  the  potential  parent.   Next,  a  search  is  made 
for  this  isotope  in  the  decay  library  (lines  1380  to  1415).   If  it  isn't 
found  the  test  is  ended.   A  special  condition  is  set  if  none  of  the 
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entries  has  the  same  first  digit  in  the  isotope  identification  number. 
In  this  case  the  libraries  needed  are  added  to  the  existing  libraries 
and  the  test  is  re-stated  (lines  1495  to  1540). 

When  the  isotope  is  found  it  is  checked  for  beta-decay.   If  it 
doesn't  beta-decay,  the  test  is  ended.   If  it  does,  the  coupling 
coefficient  is  calculated,  based  on  the  radioactive  half-life  and  the 
fraction  of  decays  which  are  beta-decays  (lines  1420  to  1475).   Next, 
the  isotope  is  tested  for  inclusion  in  the  library  (1$)  (line  1480). 
Upon  successful  completion  of  the  test  the  search  begins  for  this  new 
isotope's  parents  (line  1490).  Failure  results  in  the  continued  search 
for  the  previous  isotope's  parents  (line  1485).  Rejection  at  any  point, 
except  for  the  special  case  due  to  non-inclusion  of  the  appropriate 
library  segment,  results  in  a  test  of  the  state  of  the  isotope  being 
tested  (line  1545).   If  it  is  the  excited  state  then  the  inner  loop 
counter  is  increased  by  one  and  control  is  returned  to  line  1335  to 
select  a  new  transition  mode  (line  1550). 

The  other  thirteen  transition  modes  follow  a  similar  pattern. 
Therefore,  a  detailed  description  is  not  needed  for  each  transition 
mode.   These  modes  are  of  two  types,  the  radioactive  decay  and  the 
neutron  absorption.   The  radioactive  decay  modes  are  beta-decay  (lines 
1345  to  1555) ,  electron  capture  (lines  1555  to  1725) ,  alpha-decay  (lines 
1730  to  1915),  internal  transfer  (lines  1920  to  2065),  beta  +  neutron 
decay  (lines  2070  to  2240) ,  beta-decay  to  an  excited  state  (lines  2245 
to  2405),  and  electron  capture  to  an  excited  state  (lines  2410  to  2560). 
The  neutron  transformations  are  (n,  gamma)  (lines  2565  to  2700),  (n,2n) 
(lines  2705  to  2835),  (n,3n)  (lines  2840  to  2970),  (n,  alpha)  (lines 
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2975  to  3110),  (n,p)  (lines  3115  to  3250),  a  (n,  gamma)  resulting  in  an 
excited  daughter  (line  3255  to  3390),  and  a  (n,2n)  resulting  in  an 
excited  daughter  (lines  3395  to  3660). 

The  failure  of  an  excited  isotope  to  undergo  a  (n,2n)  reaction 
resulting  in  an  excited  daughter  signals  the  end  of  the  search  for  the 
parents  of  the  second  isotope  in  the  decay  chain.   At  this  point  the 
search  for  the  parents  of  the  third  isotope  in  the  chain  continues 
(lines  3550  to  3660).  The  first  step  in  this  transition  is  decreasing 
the  index  for  the  transition  chain  by  one  (line  3550) .   If  this  index  is 
now  one,  then  the  search  for  the  parents  of  this  isotope  of  interest  is 
over  and  control  is  returned  to  the  point  requesting  a  new  isotope  of 
interest  (lines  3595  to  3575) .   Otherwise  the  atomic  weight  and  atomic 
number  of  the  third  isotope  in  the  chain  are  recovered  (lines  3580  to 
3585). 

Fl$  and  F2$  are  used  as  storage  vectors.   They  contain  the  point  in 
the  search  where  a  successful  test  occurred,  for  all  isotopes  in  the 
transition  chain.   Fl$  indicates  the  type  of  transition,  while  F2$ 
indicates  whether  it  decayed  from  an  excited  state  or  a  ground  one. 
Therefore,  these  strings  need  adjusted  when  in  transition  from  one 
length  of  chain  to  another.  F2$  is  shortened  by  one  and  the  last  inner 
loop  index  is  recovered  from  Fl$  (lines  3590  and  3595).   If  the  last 
parent  tested  was  in  the  excited  state  then  the  inner  loop  index  is 
increased  by  one  (line  3600) . 

The  next  step  is  to  move  the  data  in  the  chain  vectors  so  that  the 
isotope  of  interest  again  occupies  the  last  position  (lines  3605  to 
3630).  Finally,  before  returning  to  line  1340,  F2$  is  shortened  by  one 
(lines  3635  to  3660). 
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The  tests  performed  for  inclusion  begin  with  a  test  to  determine  if 
the  isotope  already  appears  in  the  decay  chain  (lines  3665  to  3675) .   If 
it  does,  there  is  no  need  to  search  this  branch  any  further.   All 
isotopes  which  it  could  contribute  will  have  already  been  accounted  for 
elsewhere. 

The  second  test  for  inclusion  is  to  determine  if  the  given  chain 
generates  enough  of  the  isotope  of  interest  to  be  included.   The  total 
transition  coefficient  for  this  isotope  is  calculated  in  lines  3680  to 
3785.  This  is  exactly  as  in  lines  1175  to  1285.  Next  the  amount  of  the 

isotope  of  interest  is  calculated  based  on  the  exposure  of  one  gram  of 

13 
the  new  isotope  to  a  neutron  flux  of  10   neutrons  per  cm2  S  for  one 

year  (lines  3790  to  3795).   A  concentration  of  more  than  10   moles  of 

the  isotope  of  interest  is  considered  sufficient  for  inclusion  in  the 

library.  These  criteria  are  totally  arbitrary  but  prove  to  be 

sufficient  for  the  accuracy  required.   If  this  test  fails,  there  is  an 

alternate  test  which  can  be  performed. 

The  alternate  second  test  calculates  the  abundance  of  the  isotope 

of  interest  based  on  fission  yield.  Thus,  if  Ptype  if  greater  than  two, 

indicating  that  fission  products  aren't  considered,  or  if  the  first 

digit  of  the  isotope  identification  number  for  this  isotope  is  one, 

seven,  eight,  or  nine,  indicating  that  no  fission  yield  exists,  this 

test  is  not  performed  and  a  negative  response  to  the  test  is  given 

(lines  3805  to  3810).   Next,  a  search  is  conducted  to  find  the  isotope 

being  considered  in  the  fission  product  library  (lines  3815  to  3830) . 

If  it  isn't  found  then  the  test  ends  and  a  negative  response  is 

returned.   If  it  is  found  then  the  production  rate  is  calculated  based 

on  235  grams  of  U-235  (line  3840).   Using  this  production  rate,  the 
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concentration  of  the  isotope  of  interest  is  calculated  (line  3845) .   If 
this  concentration  is  greater  than  10    mol,  the  second  test  is  passed. 
If  not,  a  negative  response  is  returned  (lines  3855  to  3860). 

The  final  test  for  inclusion  is  to  search  all  previously  accepted 
isotopes  for  the  one  being  considered  for  acceptance  (lines  3865  to 
3905).   If  it  is  found,  a  comparison  is  made  between  the  corresponding 
element  of  Weight  and  the  amount  calculated.   If  the  element  of  Weight 
is  greater  than  the  amount  calculated,  the  isotope  is  rejected.   If  not, 
then  the  element  of  Weight  assumes  the  value  of  amount.   This  criteria 
allows  continuation  of  the  search  for  parents  if  the  new  chain  proves  to 
be  more  closely  linked  than  any  previous  chain. 

Once  the  isotope  is  accepted,  the  element  of  Weight  corresponding 
to  the  isotope  accepted  is  set  equal  to  the  amount  calculated  in  the 
second  test  (line  3910).   A  positive  response  is  then  given  to  the  test, 
and  the  string  Fl$  is  updated  to  reflect  the  lengthening  of  the  decay 
chain  (lines  3915  to  3925).   Next,  the  accepted  isotope  is  printed  on 
the  screen  (lines  3930  to  3985)  ,  and  its  atomic  weight  and  atomic  number 
are  recovered  (lines  3990  to  3995).  Finally,  the  vector  of  isotopes  is 
searched  for  the  newly  accepted  isotope  (lines  4000  to  4025).   If  it  is 
found  before  the  last  entry,  the  last  entry  is  eliminated. 

After  all  the  isotopes  have  been  entered  and  the  null  line  has  been 
entered  instead  of  an  atomic  number,  the  output  stage  begins.  The  first 
step  in  the  output  stage  is  to  eliminate  all  of  the  repeats  of  isotopes 
(lines  4040  to  4110).  This  would  only  occur  if  a  second  or  later 
isotope  of  interest  were  to  be  one  of  the  contributing  isotopes  to  an 
earlier  isotope  of  interest.   Therefore,  a  search  is  made  for  the  second 
or  later  isotopes  of  interest  (line  4050) .  Once  they  have  been  found  a 
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comparison  for  each  is  made  to  all  isotopes  appearing  before  it  in  the 
vector  (lines  4055  to  4100).   If  a  duplicate  is  found  then  all  isotopes 
previous  to  the  duplicate  one  are  moved  up  one,  thus  eliminating  the 
duplicate  (lines  4070  to  4080). 

The  second  output  step  is  the  creation  of  the  output  file.   First, 
the  file  name  is  entered  (line  4115  to  4140).   Second,  the  dimension  of 
the  file  is  calculated  (lines  4145  to  4150).  Finally,  an  attempt  is 
made  to  create  the  new  file  (lines  4160  to  4170).   If  this  attempt 
should  fail,  there  is  provision  for  overcoming  some  errors  (lines  4210 
to  4265). 

The  data  are  now  ready  to  be  output.   The  number  of  entries  in  the 
isotope  vector  is  saved  first,  followed  by  each  of  the  elements  in  the 
isotope  vector  (lines  4175  to  4195). 

Finally,  the  isotope  file  complete,  the  code  is  ready  to  complete 
this  step.  The  new  isotope  file  is  reopened  to  provide  input  (line 
4200),  and  the  first  element  is  read  from  the  file,  giving  the  length  of 
the  vector,  to  be  used  later  in  the  program  (line  4280  and  4285). 
Control  is  then  returned  to  the  main  routine  of  KSIG  (lines  4290  to 
4300) . 

The  heart  of  KSIG,  the  area  in  which  the  Bateman  calculations  are 
performed,  is  located  in  the  subroutines  Const_n  and  Const_p.   These 
subroutines  embody  the  Bateman  equations  (Eqs.  (2.26),  (2.39),  (2.45), 
(2.53),  and  (2.62)).   They  also  perform  the  approximations  implied  by 
Eq.  (3.4)  and  given  by  Eq.  (3.7).   Without  these  two  subroutines  KSIG 
would  do  nothing  more  than  shuffle  data  files. 
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C.4.   Subroutine  Const_n 

Const_n  is  the  subroutine  used  to  calculate  the  concentration  of  an 
isotope  when  the  concentration  of  one  of  its  parents  is  given.   It 
begins  by  calculating  the  product  of  all  the  coupling  coefficients  in  a 
given  chain  (lines  4320  to  4335).   It  then  calculates  the  contributions 
due  to  each  of  the  total  transition  coefficients  (lines  4340  to  4480). 

If  ft.t  is  very  large,  the  approximation  implied  by  Eq.  (3.4)  is 
used.   Instead  of  calculating  a  term  for  the  summation  in  Eq.  (2.45)  and 
Eq.  (2.53),  the  product  of  the  coupling  coefficients,  e . ,  is  divided  by 
ft.  (lines  4350  to  4365).   Since  ft  is  not  used  in  any  term  under  the 
summation,  it  is  bypassed  when  calculating  the  product  of  the 
differences  between  ft  (line  4390) . 

If  ft  t  is  not  very  large,  its  term  in  the  summation  must  be 
calculated.   The  first  step  is  to  calculate  the  product  of  the 
differences  between  the  total  transition  coefficients.   This  is 
performed  in  lines  4380  to  4430.   If  a  repeating  isotope  is  discovered, 
the  difference  is  skipped  and  a  note  is  made  for  future  reference  (lines 
4395  to  4420). 

If  a  repeating  isotope  is  discovered,  then  the  inner  sum  of  Eq. 
(2.53)  is  needed.  This  sum  is  calculated  in  lines  4435  to  4460.  The 
two  terms  needed  for  this  step  are  combined  into  one,  by  dividing  the 
product  of  the  differences  just  calculated  by  the  difference  between  the 
time,  in  seconds,  and  the  inner  sum  (line  4465).   The  second  reference 
to  the  repeating  isotope  is  eliminated  by  line  4400. 

The  sum  is  completed  by  adding  the  new  term  in  line  4475.   The 
final  concentration  is  the  product  of  the  coupling  coefficients  and  the 
sum  (line  4485) . 
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C.5.   Subroutine  Const_p 

Const_p  is  the  subroutine  used  to  calculate  the  concentration  of  an 
isotope,  when  a  constant  production  rate  is  assumed  for  one  of  its 
parents.   It,  like  Const_n,  begins  by  calculating  the  product  of 
coupling  coefficients  for  a  given  chain  (lines  4510  to  4525).   It  then 
calculates  the  contributions  due  to  each  of  the  total  transition 
coefficients  (lines  4530  to  4775) . 

Again,  if  fit  is  very  large,  the  approximation  implied  by  Eq.  (3.4) 
is  used.   The  product  of  the  coupling  coefficients  is  again  divided  by 
0.  (lines  4540  to  4555),  and  again,  the  term  for  fi.  is  bypassed  when 
calculating  the  product  of  the  differences  between  the  fi   (line  4580) . 

If  0  t  is  not  very  large,  the  product  of  the  differences  between  fi 
is  needed  (lines  4560  to  4620).   If  a  repeating  isotope  is  tagged  while 
calculating  this  product,  its  difference  is  skipped  and  a  note  is  made 
for  future  reference  (lines  4585  to  4610) . 

If  a  repeating  isotope  is  involved,  the  inner  sum  of  Eq.  (2.39) 
must  be  calculated  (lines  4625  to  4655)).   Each  time  a  repeating  isotope 
appears,  the  solution  functions  the  same.   The  outer  summation  is 
reduced  by  the  term  linear  in  time  given  in  Eq.  (2.39)  (lines  4670  and 
4755) ,  and  the  product  of  the  differences  of  Q  is  divided  by  the  inner 
sum  (lines  4675  and  4760).   No  time  appears  in  these  equations,  but  is 
saved  for  the  final  step  in  line  4785. 

Three  different  cases  now  remain,  0  t  in  the  intermediate  range, 
fi^t  very  small,  and  fit  equal  to  zero.   Each  of  these  cases  is  governed 
by  its  own  equation  and  therefore  its  own  section  of  code.   All  cases 
can  occur  for  the  same  chain,  the  only  difference  in  calculation  is  for 
the  exponential  term  of  each.   For  Q.t  intermediate,  less  than  100  but 
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greater  than  two,  Eq.  (2.26)  is  used  and  the  exponential  term  is 
calculated  in  lines  4660  to  4695.   For  Cl.t   very  small,  the  approximation 
of  Eq.  (3.7)  is  used  (lines  4720  to  4770).   Finally,  for  12. t  equal  to 
zero,  Eq.  (2.45)  is  used  (lines  4700  to  4715). 

The  final  step  is  to  multiply  the  sum  of  exponentials  by  the 
product  of  coupling  coefficients  and  time.   This  results  in  the  correct 
value  for  all  cases  except  when  all  B.t  are  very  large.   In  that  case, 
the  sum  of  exponentials  is  zero,  which  makes  the  product  zero.   In 
reality,  using  the  approximation  of  Eq.  (3.4),  the  solution  should  be 
the  product  of  the  coupling  coefficients,  divided  by  the  total 
transition  coefficients  and  multiplied  by  the  production  rate.   Thus, 
when  the  sum  of  exponentials  is  zero,  the  code  sets  it  to  1/T  (line 
4780). 

C.6.  Miscellaneous  Functions  and  Subroutines 
Several  short  functions  and  subroutines  are  frequently  called 
throughout  the  execution  of  KSIG.   These  are  the  functions  FNC1  and 
FNSt$,  and  the  subroutine  Astring.   FNC1  serves  to  transform  a  given 
radioactive  decay  constant  from  its  given  units  to  the  units  of  sec 
(lines  4795  to  4835).   FNSt$  creates  the  isotope  identification  number 
from  its  component  parts,  the  atomic  number,  atomic  weight  and  atomic 
state  (lines  4840  to  4890).  And,  Astring  creates  an  alpha-numeric 
string  which  represents  a  given  number  in  exponential  format,  e.g., 
1.7532E+11  (lines  5010  to  5140). 

C.7.   Subroutine  Libin 

One  subroutine  called  by  Isotope,  but  not  elsewhere  in  KSIG  is 
Libin  (lines  4895  to  5005) .   This  subroutine  directs  the  input  from  the 
data  libraries  stored  on  disk.   It  adds  each  new  segment  needed  to  the 


49 

end  of  the  segments  already  read.  The  first  library  accessed  is  the 
decay  library  (lines  4900  to  4930)  followed  by  the  cross  section  library 
(lines  4935  to  4960)  and  the  fission  yield  library  (lines  4965  to  5000). 
The  subroutine  allows  the  access  of  data  from  disk  as  it  is  needed. 

C.8.   Subroutine  Isin 

Once  the  file  containing  the  isotopes  of  interest  has  been 
accessed,  the  next  step  is  to  read  these  isotopes  into  non-volatile 
memory.   This  is  done  in  Isin  (lines  5145  to  5195).   This  routine  reads 
not  only  the  isotopes  of  interest  to  the  operator,  but  also  the  isotopes 
required  to  determine  flux  or  power.   These  isotopes  are  the  fissioning 
isotopes  known  as  the  actinldes. 

C.9.   Subroutine  Inin 

Next,  initial  concentrations  are  needed.   These  are  input  in  the 
subroutine  Inin  (lines  5200  to  6055).   Two  options  are  given  for  input, 
either  previously  stored  or  newly  input  (lines  5210  to  5225).   If  the 
previously  stored  option  is  selected,  input  occurs  from  disk  (lines  5230 
to  5435) ,  otherwise  they  are  input  by  hand  (lines  5540  to  6040) . 

When  the  stored  option  is  selected,  the  first  thing  the  program 
does  is  ask  for  the  name  of  the  inventory  file  (lines  5240  to  5250) .   An 
attempt  is  then  made  to  access  that  file  (lines  5255  to  5265) .   If  this 
file  can  not  be  found,  an  error  message  is  printed  and  the  file  name  is 
asked  for  again  (lines  5385  to  5420) .   After  the  successful  access  of  a 
file,  an  entry  is  read  from  that  file  (lines  5265  to  5280).   If  an  error 
occurs  while  reading  an  entry  (line  5265),  or  the  entry  is  not  18 
characters  long,  the  length  of  a  properly  saved  entry  (line  5285),  an 
error  message  is  printed  and  a  file  name  is  asked  for  again  (lines  5405 
to  5420). 
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After  inputting  an  entry,  the  next  step  is  to  store  this  entry  into 
its  appropriate  non-volatile  vector.   The  vector  of  isotopes  is  searched 
to  find  the  isotope  in  the  entry  (lines  5290  to  5325).   If  it  is  found, 
the  concentration  in  the  entry  is  stored  in  the  appropriate  element  of 
the  isotope  concentration  vector  (line  5305).   Next,  the  vector  of 
actinides  is  searched  for  the  isotope  in  the  entry  (lines  5330  to  5375) . 
If  found,  the  concentration  is  stored  in  the  appropriate  element  of  the 
actinide  concentration  vector  (line  5350) .  Any  error  occurring  during 
this  process  results  in  an  error  message  and  a  return  to  the  request  for 
a  new  file  name. 

With  the  concentration  stored,  the  program  loops  back  to  read  a  new 
entry  (line  5380) .   This  process  continues  until  all  entries  have  been 
read  from  the  file.   The  file  is  then  closed  and  control  is  returned  to 
the  main  routine  (lines  5425  to  5435) . 

The  first  step  in  the  option  'new'  is  to  print  general  instructions 
on  leaving  the  input  loop  and  on  indicating  naturally  occurring  elements 
(lines  5440  to  5495).   Next,  the  atomic  number  of  the  isotope  whose 
concentration  is  being  entered  is  asked  for  (lines  5515  to  5545).   A 
null  entry  indicates  the  end  of  input  and  the  program  branches  out  of 
the  input  loop  (line  5525).  The  atomic  weight  is  input  in  lines  5555  to 
5575.   A  non-zero  value  indicates  an  isotope,  therefore  to  define  this 
isotope  completely,  the  atomic  state  is  requested  (lines  5585  to  5620) . 
An  atomic  weight  of  zero,  on  the  other  hand,  indicates  a  naturally 
occurring  element,  therefore  the  question  of  atomic  state  would  be 
skipped  (line  5580).   Once  the  isotope  or  element  is  defined,  the 
concentration  is  requested  (lines  5625  to  5645). 
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The  next  step  is  to  create  data  entries  for  the  given  isotope  or 
element.   If  the  atomic  weight  is  not  zero,  the  isotope  is  well-defined 
and  the  entry  easily  constructed.   The  concentration  is  converted  to 
string  form  by  Astring  and  the  isotope  identification  number  is  created 
by  FNST$  (lines  5660  to  5665) .   These  two  strings  are  combined  to  form 
an  inventory  entry.   This  entry  is  then  stored  in  a  temporary  vector  and 
printed  on  the  computer  screen  (line  5670) .   Finally,  the  program  loops 
back  and  a  new  entry  is  started  (line  5675). 

If  the  atomic  weight  is  zero,  more  than  one  entry  may  be  needed  for 
some  naturally  occurring  isotopes.  A  file  of  naturally  occurring  isotopes 
is  searched  to  find  the  element  specified  (lines  5685  to  5740) .  When  an 
isotope  of  this  element  is  found  a  new  entry  is  created.   The 
concentration  used  in  constructing  this  entry  is  calculated  by 
multiplying  the  total  elemental  concentration  by  the  percentage  of  this 
isotope  occurring  in  nature  and  dividing  by  100  (line  5710).  The  actual 
construction  of  the  entry  is  similar  to  that  performed  when  the  isotope 
is  defined  (lines  5715  to  5725).   When  the  entry  is  complete  it  is 
stored  in  the  temporary  vector  and  printed  on  the  screen. 

Since  only  rarely  is  one  isotope  of  an  element  the  only  naturally 
occurring  isotope  of  that  element,  the  program  loops  back  and  attempts 
to  find  a  second  or  third  isotope  (line  5740) .   This  process  continues 
until  either  the  isotope  read  is  found  to  be  of  higher  Z  value  than  the 
element  in  question,  or  else  the  last  entry  in  the  file  has  been  read 
(lines  5695  to  5700) .   When  this  occurs  before  any  new  entries  have  been 
created,  an  error  message  is  printed  (lines  5745  to  5765).   Otherwise, 
control  is  returned  back  to  input  a  new  entry  unabated  (line  5765). 
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After  all  data  entries  have  been  constructed,  the  operator  is  given 
the  option  to  save  this  newly  constructed  vector  to  disk  (lines  5770  to 
5790).   If  the  operator  chooses  to  save  this  vector,  the  computer  asks 
for  the  new  file's  name  (lines  5795  to  5820).   It  then  attempts  to 
create  the  new  file  (lines  5825  to  5850) .   If  an  error  occurs  during 
this  attempt  the  computer  gives  the  operator  an  opportunity  to  recover 
from  his  mistake  (lines  5975  to  6030).   Finally,  the  data  entries  are 
written  to  disk  and  the  file  closed  (lines  5855  to  5875) . 

The  final  step  in  this  routine  is  the  transfer  of  concentrations 
from  this  temporary  vector  to  a  more  permanent  one.   This  step  is 
accomplished  exactly  as  in  lines  5265  to  5380  except  that  the  data  are 
now  read  from  a  vector  instead  of  from  disk.   The  opportunity  for  error 
has  been  removed  (lines  5890  to  5970).   After  this  step  is  completed, 
control  is  returned  to  the  main  routine. 

CIO.   Subroutine  Typout 

The  next  subroutine  called  by  the  main  routine  and  the  last  in 
which  any  operator  interaction  is  required  is  Typout  (lines  6060  to 
6135).   This  subroutine  performs  two  functions.   It  designates  the  name 
of  the  output  file,  and  identifies  the  print  control  parameter  for  the 
main  routine  to  be  one. 

The  print  control  character,  Typout,  controls  whether  or  not  an 
output  table  is  printed  when  the  subroutine  Out  is  called.   A  value  of 
one  indicates  yes  while  a  value  of  zero  indicates  no.   If  Typout  is 
zero,  the  only  function  which  Out  performs  is  the  initiation  of  updating 
the  graphic  display. 

When  determining  the  name  of  the  output  file,  the  operator  is  asked 
if  he  wants  to  save  the  final  concentration  vector  (lines  6070  to  6085). 
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The  advantage  to  saving  this  vector  is  that  it  can  be  used  as  the 
initial  concentration  vector  for  later  runs.   If  the  operator  answers 
'No',  the  name  of  the  output  file  is  set  to  'NONE'  (lines  6090  to  6100). 
If  the  operator  answers  'Yes',  he  is  asked  to  input  the  name  he  wishes 
the  output  file  to  have  (lines  6200  to  6225) . 

C.ll.  Subroutine  Frm 

The  next  subroutine,  Frm,  builds  the  framework  for  the  graphics 
display.   It  turns  on  and  clears  the  graphics  and  draws  and  labels  the 
axes.   The  graphics  display,  when  complete,  consists  of  a  histogram  of 
atomic  number  vs.  elemental  abundance.   The  atomic  number  scale  is  a 

linear  scale  ranging  from  0  to  100,  and  the  abundance  scale  is 
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logrithmic  ranging  from  10   to  10  grams. 

C.12.   Subroutine  Out 

Out  is  the  output  subroutine.   Its  primary  function  is  to  control 
all  visual  output.   It  begins  its  execution  by  dimensioning  variables 
and  inputting  the  two-character  name  for  each  element  from  disk  (lines 
6300  to  6340).   Next,  it  calculates  the  concentration  of  each  element 
represented  in  either  the  isotope  vector  or  the  actinide  vector  (lines 
6345  to  6425) .   This  is  accomplished  by  adding  the  contribution  of  each 
isotope  to  its  appropriate  element.   To  avoid  counting  an  isotope  twice, 
the  isotopes  which  appear  in  both  vectors  are  skipped  when  going  through 
the  isotope  vector  (lines  6345  to  6405)  and  are  counted  in  the  actinide 
vector  (lines  6410  to  6425).   The  running  time  is  then  calculated  (line 
6430)  and  the  graph  is  updated  (line  6435).   Now,  if  the  print  control 
character  is  zero,  the  rest  of  the  routine  is  skipped  (line  6440). 
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The  second  half  of  the  output  subroutine  controls  the  printing  of 
the  output  table  (lines  6445  to  6565).   The  table  printed  consists  of 
every  isotope  previously  designated  as  an  isotope  of  interest,  which  has 
a  concentration  of  at  least  that  of  the  threshold  (line  6465) .  Each 
page  of  output  has  its  own  heading  and  can  contain,  as  many  as,  56  lines 
of  entries  with  three  entries  per  line.  Each  entry  consists  of  the  ' 
element's  name,  atomic  weight  and  its  concentration  in  grams.  A  star 
printed  beside  the  atomic  weight  designates  the  isotope  is  in  an  excited 
state.  A  new  page  is  generated  each  time  this  sequence  is  executed. 

C.13.   Subroutine  Graph 

The  subroutine  Graph,  called  from  the  subroutine  Out,  draws  the 
histogram  of  element  vs.  abundance  (lines  6570  to  6610).   It  also  prints 
on  the  graph  the  elapsed  computation  time,  in  seconds,  the  simulated  run 
time  at  the  end  of  the  time  step,  in  seconds,  the  thermal  power  in 
MW/unit,  and  the  neutron  flux,  in  neutrons/cm2  s  (lines  6615  to  6655). 
It  then  completes  the  picture  by  drawing  a  frame  around  the  graph  (lines 
6660  to  6680) . 

C.14.  Subroutine  Head 

The  subroutine  Head,  also  called  from  Out,  prints  the  heading  of 
each  new  page  (lines  6685  to  6805).  Before  it  prints  any  heading,  it 
calculates  the  simulated  run  time  in  its  most  appropriate  units  (lines 
6695  to  6760).   It  then  prints  the  page  header.   This  header  consists  of 
the  simulated  time,  page  number,  neutron  flux,  and  thermal  power 
density.   These  information  headers  are  followed  by  the  column  headings 
of  Isotope  and  Mass,  three  times  each. 
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C.15.   Subroutine  Abund 

Subroutine  Abund  is  the  routine  which  directs  and  controls  the 
calculation  step  in  the  program.   Its  major  function  is  to  prevent  the 
introduction  of  a  time  step  so  large  that  the  fission  yield  spectrum 
shifts  significantly.   The  first  step  in  this  routine  is  data  input  and 
interpretation  of  those  data.   Lines  6815  to  6835  dimension  variables 
and  initialize  certain  parameters.   Next,  the  power/time  step  is  entered 
from  the  power  file  and  converted  to  usable  data  (lines  6840  to  6900). 
If  the  power  time  step  is  'END,'  indicating  the  end  of  the  file,  the  end 
flag  is  set  to  one  and  control  is  returned  to  the  main  routine  (lines 
7270  to  7280).   The  power  type  is  then  interpreted,  setting  a  flag  if 
fission  products  are  not  to  be  considered  in  this  run  (lines  6905  to 
6965). 

The  second  and  final  step  is  to  direct  control  of  the  irradiation. 
If  constant  flux  is  indicated  as  the  power  type,  calculations  are 
controlled  by  lines  6970  to  7085.  The  general  flow  of  logic  for  this 
routine  is  as  follows.   Power  is  calculated  at  the  beginning  of  the  time 
step.   The  actinides  are  then  irradiated  for  the  full  length  of  the  time 
step,  and  the  power  is  again  calculated,  but  at  the  end  of  the  time 
step.   If  the  power  changes  by  more  than  two  percent,  it  is  assumed  that 
the  fission  yields  are  not  sufficiently  constant.   So,  the  time  step  is 
reduced  and  the  actinides  are  irradiated  again.   This  procedure 
continues  until  a  time  step  sufficiently  small  to  prevent  a  change  in 
power  of  two  percent  is  achieved. 

With  a  small  change  in  power,  fission  yields  are  assumed  constant. 
Therefore,  the  fission  rate  of  each  contributing  actinide  is  calculated, 
at  both  the  beginning  and  end  of  the  time  step.   The  average  of  these 
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two  values  is  taken  to  reduce  possible  error  (lines  7090  to  7155).   The 
isotopes  of  interest  are  then  irradiated. 

Since  the  time  step  may  have  been  shortened,  a  check  is  made  to 
determine  if  the  total  time  step  has  been  completed  (lines  7035  to 
7055).   If  the  step  has  been  completed,  control  is  returned  to  the  main 
routine.   If  not,  at  least  one  more  irradiation  is  needed.   The 
concentrations  of  the  isotopes  at  the  end  of  the  time  step  are 
transferred  to  the  initial  concentration  vectors,  A  and  Aact,  (line 
7060) .   Then,  the  output  routine  is  called  to  update  the  graph  (line 
7070) .   Finally,  a  new  time  step  is  calculated  that  will  bring  the 
irradiation  to  the  end  of  the  original  time  step  and  control  is  returned 
to  the  beginning  of  the  constant  flux  routine  (lines  7075  to  7085) . 

Two  exceptions  to  this  procedure  may  occur.  First,  the  flux  may  be 
zero,  therefore,  no  fissioning  or  fission  products,  or  second  fission 
products  may  not  be  considered,  Pflag  may  be  one.   In  each  case,  a 
change  in  power  is  not  important,  therefore  the  test  for  a  power  change 
is  skipped. 

Now,  if  constant  power  is  being  considered,  the  calculations  are 
directed  by  lines  7160  to  7265.  Nearly  the  same  procedure  is  followed 
as  for  the  case  of  constant  flux.   The  only  difference  is  that,  instead 
of  power  changes  being  controlled,  the  change  in  Flux  is  of  interest. 

C.16.   Functions  FNPower,  FNFlux,  and  FNEpf 

Three  functions  called,  either  directly  or  indirectly,  by  Abund  are 
FNPower  (lines  7290  to  7330),  FNFlux  (lines  7335  to  7375),  and  FNEpf 
(lines  7380  to  7395) .   These  functions  are  the  three  equations  derived 
earlier.   FNPower  is  Eq.  (2.8),  FNFlux  is  Eq .  (2.7)  and  FNEpf  is  Eq. 
(2.3). 
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C.17.  Subroutine  Decay 

Subroutine  Decay  (lines  7400  to  8005)  is  the  subroutine  which 
calculates  the  isotopic  abundances  for  a  given  vector.   It  uses  a  large 
number  of  vectors,  most  of  which  are  similar  to  those  used  in  the 
subroutine  Isotope.   Several  new  vectors  added  are  Am,  Fract,  Lo,  and 
Ap.   Each  of  these  four  vectors  are  used  in  the  transition  chain 
calculations.   Am  is  the  amount  of  the  isotope  generated  in  the  first 
generation  by  this  transition  chain,  Fract  is  the  ratio  between  the 
first  and  second  generations  of  an  isotope  appearing  in  its  own 
transition  chain,  Lo  is  the  location  of  the  given  isotope  in  the  isotope 
vector,  and  Ap  is  the  mass  of  unaccounted  for  isotopes  which  will  appear 
down  a  given  branch  of  a  decay  chain.  The  first  three  of  these  vectors 
are  essential  for  calculating  the  concentration  of  isotopes  appearing  in 
their  own  transition  chain.  The  final  vector,  Ap,  is  used  as  a 
criterion  to  determine  the  value  of  continuing  a  given  branch  of  a  decay 
chain. 

The  major  portion  of  this  subroutine  is,  a  large  FOR-NEXT  loop, 
which  cycles  through  each  isotope  in  the  given  isotope  vector.  Each 
loop  begins  by  placing  an  'X'  on  the  appropriate  atomic  number  of  the 
graphics  display  and  updating  the  running  time  (lines  7435  to  7460) . 
This  is  done  to  provide  some  motion  to  indicate  that  the  program  is 
still  executing.   Then,  the  subroutine  Omega  is  called  to  calculate  the 
total  transition  coefficient  for  this  isotope,  and  to  place  its  decay 
and  cross  section  data  into  the  appropriate  vector  (line  7465).   Next,  a 
number  of  variables  are  initialized  (lines  7470  to  7490) . 

Now  the  calculations  begin.   First,  the  initial  number  of  moles  of 
the  isotope  is  determined  (lines  7495  to  7520).   If  the  initial  amount 
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of  this  isotope  is  not  zero,  the  number  of  moles  at  the  end  of  this  step 
are  calculated  (line  7525).  Otherwise,  control  goes  directly  to  the 
production  step. 

If  flux  is  zero  or  if  fission  products  are  not  to  be  considered  the 
production  step  is  skipped  (lines  7535  to  7540).   If  not,  the  production 
rate  of  this  is  calculated  using  Eq.  (2.9)  (lines  7545  to  7580).  The 
concentration  of  this  isotope  which  is  due  to  fission  production  is  then 
calculated  (line  7585).   These  two  amounts  are  summed  and  stored  in  Am 
(lines  7590  to  7605) .  Fract  is  set  to  zero  and  Ap  for  this  chain  is 
calculated  by  adding  the  initial  concentration,  of  this  isotope,  to  the 
total  amount  produced  by  fission,  subtracting  the  amount  remaining  at 
the  end  of  the  time  step,  and  multiplying  the  entire  thing  by  the 
isotopes  atomic  weight  (lines  7610  to  7615). 

Next,  the  subroutine  which  finds  the  daughters  is  called,  which 
returns  the  location  of  the  next  daughter  of  this  isotope  and  the 
coupling  coefficient  between  the  two  (line  7625) .   If  daughter  can  not 
find  a  new  daughter  for  this  isotope,  it  shortens  the  transition  chain 
and  searches  for  new  daughters  at  a  higher  level.   If  it  has  searched 
through  all  possible  daughters  of  the  original  isotope,  it  sets  Eflag  to 
one. 

If  Daughter  returns  with  a  transition  chain  which  is  shorter  than 
the  last  time  Daughter  was  called,  the  concentration  of  the  isotopes 
removed  from  the  chain  are  added  to  the  output  vector,  B,  (lines  7630  to 
7665).   This  procedure  uses  Eq.  (3.12).   If  no  isotopes  are  repeated, 
this  equation  degenerates  to  adding  a  concentration  to  a  vector.   If 
Eflag  is  set  to  one,  the  program  loops  back  for  a  new  isotope  (line 
7670). 
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If  Eflag  is  not  one,  Ap  for  this  link  is  calculated  by  dividing  the 
coupling  coefficient  by  the  total  transition  coefficient  of  the  previous 
link  and  then  multiplying  by  the  amount  passed  to  the  previous  link 
(line  7675). 

Several  different  conditions  can  cause  the  termination  of  a  given 
branch  (lines  7680  to  7820).   The  first  of  these  conditions  is  if  the 
amount  passed  to  this  branch  is  more  than  four  orders  of  magnitude 
smaller  than  the  output  threshold.   This  is  the  range  of  desired 
accuracy.   The  second  condition  is  if  the  amount  passed  to  a  step 
divided  by  the  total  amount  produced  (X+prod*t)  falls  below  10    .   If 
this  occurs  the  concentrations  being  calculated  are  mostly  round  off 
error.   The  third  condition  is  if  the  amount  passed  to  a  branch  is  less 
than  the  level  of  significance  for  any  of  the  isotopes  of  interest.  The 
final  condition  which  may  cause  the  termination  of  a  chain  is  if  an 
isotope  appears  more  than  twice  in  a  decay  chain. 

If  this  branch  isn't  terminated,  Omega  is  called  to  determine  the 
total  transition  coefficient  of  this  isotope  (line  7825) .  The 
concentration  for  this  isotope  is  then  calculated  from  both  sources  and 
summed  (lines  7830  to  7880).  Now,  if  this  is  the  first  appearance  of 
the  isotope  in  the  chain,  the  amount  calculated  is  stored  in  Am  and 
Fract  is  set  to  zero  (lines  7885  to  7900) .   If  it  is  the  second 
appearance,  Am  is  set  to  zero  and  the  ratio  between  the  amounts 
calculated  between  the  first  and  second  appearance  is  added  to  the  Fract 
of  the  first  appearance  (lines  7905  to  7935) .   If  for  some  reason  the 
amount  of  the  first  appearance  is  zero,  Am  for  the  first  appearance  is 
set  equal  to  the  sum  of  all  the  second  appearances  (lines  7915  to  7935). 
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The  amount  passed  from  this  step  is  calculated  by  subtracting  the 
mass  of  this  isotope  remaining  at  the  end  of  the  time  step,  from  that 
passed  to  this  link  (line  7950) .  The  program  then  loops  back  to  find  a 
new  daughter  (line  7960).   Finally,  when  the  program  has  looped  through 
all  of  the  isotopes,  the  program  returns  to  Abund. 

C.18.   Subroutine  Omega 

Subroutine  Omega  calculates  the  total  transition  coefficient  for  an 
isotope  and  stores  its  decay  and  cross  section  data  in  their  appropriate 
string  (lines  8010  to  8165).   If  Kl$  is  'N',  this  is  the  first  time 
Omega  has  been  called,  and  its  libraries  are  empty.   Therefore,  the 
first  library  segments  are  loaded  (lines  8015  to  8035).  This  segment  is 
loaded  and  kept  permanently  in  the  library  vectors,  because  many 
different  isotopes  may  undergo  an  (n,p)  reaction  or  alpha-decay.   When 
this  happens  the  data  for  hydrogen  and  helium  are  needed. 

Next,  Kl$  and  K2$  are  checked  to  see  if  the  library  contains  the 
segment  needed  for  this  step  (lines  8040  to  8055).   If  it  doesn't  have 
the  isotope  needed,  the  appropriate  library  segment  is  loaded.   The 
decay  library  is  then  searched  for  the  isotope  whose  transition 
coefficient  is  to  be  calculated  (line  8060  to  8075).   If  or  when  this 
entry  is  found,  the  first  half  of  the  total  transition  coefficient  is 
calculated  and  the  decay  string  is  stored  in  the  appropriate  place  (lines 
8080  to  8110).  The  search  for  the  cross  section  string  follows  with 
similar  results  (lines  8115  to  8160).   Finally,  control  is  returned  to 
the  subroutine  Decay. 

C.19.   Subroutine  Lib 

Subroutine  Lib  is  the  subroutine  which  loads  the  decay,  cross 
section,  and  fission  yield  libraries  from  disk  (lines  8170  to  8390). 
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This  routine  differs  from  subroutine  Libin  by  the  fact  that  the  first 
library  segment  is  loaded  and  left  in  the  library  memory,  and  that,  at 
most,  only  two  other  segments  are  kept  in  memory.   It  controls  the 
segments  by  setting  the  library  counters  to  the  appropriate  values.   If 
the  library  is  empty  the  counters  are  set  to  zero.   If  the  first  new 
segment  is  being  read,  the  counter  is  set  to  the  end  of  the  constant 
data.   If  the  second  new  segment  is  being  read,  the  counters  are  left  as 
is.   If  the  third  new  segment  is  being  read,  the  counters  are  reset  as 
if  it  were  the  first  new  segment  (lines  8185  to  8280) . 

Once  the  counters  are  set  the  data  are  read  from  the  disk  and 
stored  in  the  appropriate  vector  (lines  8285  to  8385) .   Control  is  then 
returned  to  subroutine  Omega. 

C.20.   Subroutine  Daughter 

Subroutine  Daughter  determines  the  next  daughter  of  a  transition 
chain  and  calculates  the  coupling  coefficient  for  this  isotope  (lines 
8395  to  9205) .   This  process  is  complicated  if  an  isotope  decays  by 
alpha  emission  or  by  a  (n,p)  reaction.  When  this  happens  two  isotopes 
are  formed  by  the  transition  process,  one  of  which  is  hydrogen  or 
helium.   A  separate  transition  chain  exists  for  each.   A  special  vector 
is  used  in  Daughter  to  keep  track  of  these  transitions.  The  vector, 
Frac,  stores  the  location  of  the  isotope  formed  in  the  alternate  branch 
of  the  transition  chain.   Its  value  is  recovered  after  the  original 
branch  has  been  followed  to  its  end  (lines  8400  to  8425). 

If  no  alternative  branch  is  to  be  recovered,  a  new  daughter  must  be 
found.   The  length  of  Fl$  is  tested  to  see  if  this  daughter  is  on  a  new 
level  in  the  transition  chain  (line  8430).   If  it  isn't,  the  index 
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which  indicates  the  type  of  transition  last  tested  at  this  level  is 
recovered  (line  8435) .   If  the  index  is  less  than  seven,  the  transition 
was  by  radioactive  decay. 

If  the  index  is  less  than  seven,  the  eleventh  character  of  the 
decay  string  is  tested  to  determine  if  it  is  a  nine  (line  8445).   If 
this  character  is  a  nine,  more  than  two  decay  modes  exist  for  this 
isotope.   If  it  isn't,  and  since  this  is  at  least  the  second  time 
through  this  step  for  this  isotope,  the  secondary  decay  mode  is  of 
interest  for  this  isotope.  Therefore,  the  codes  for  the  old  decay  mode 
and  the  secondary  decay  mode  are  recovered  (lines  8450  to  8460) .   A  test 
is  made  to  see  if  the  secondary  decay  mode  is  zero,  indicating  no 
secondary  decay,  a'5',  indicating  that  the  secondary  decay  is 
spontaneous  fission,  or  equal  to  the  old  decay  mode,  indicating  that  the 
secondary  mode  has  already  been  tested.   If  it  is  any  of  these  three 
values,  the  cross  section  data  are  searched  for  a  transition  mode  (line 
8465).   If  not,  the  coupling  coefficient  is  calculated,  the  transition 
index  is  updated  and  the  next  stage  of  testing  begins  (lines  8470  to 
8490) . 

When  a  '9'  is  encountered  in  character  eleven  of  the  decay  string, 
a  special  technique  is  needed  to  determine  the  new  daughter.  Each  of 
the  four  possible  multiple  chains  is  controlled  by  its  own  section  of 
code.  Therefore,  a  branch  is  immediately  made  to  that  section  (line 
8605).   Next,  a  search  is  made  for  the  old  decay  mode.   If  it  is  found, 
the  transition  index  is  updated,  the  location  of  the  appropriate 
fraction  is  stored  in  F2,  the  coupling  coefficient  is  calculated  and  the 
next  stage  of  testing  begins  (lines  8610  to  8735).   If  the  old  decay 
mode  proves  to  be  the  last,  for  this  isotope,  the  cross  section  string 
is  searched  for  transition  modes. 
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If  this  is  a  new  level,  the  primary  decay  mode  for  this  isotope  is 
choosen  automatically  and  the  coupling  coefficient  is  calculated 
appropriately  (lines  8495  to  8600).  But,  if  this  isotope  is 
radioactively  stable,  the  cross  section  string  is  searched  for  a 
transition  mode. 

Once  all  of  the  decay  data  have  been  exhausted,  the  search  of  the 
cross  section  string  begins.   If  this  is  the  first  time  the  cross 
section  string  is  accessed  for  this  isotope,  the  first  transition  mode 
is  chosen  as  the  current  one  and  the  coupling  coefficient  is  calculated 
(lines  8740  to  8760).   If  this  is  not  the  first  time,  the  cross  section 
string  is  searched  for  the  old  code.   When  it  is  found,  the  next 
transition  mode  is  assumed  to  be  the  current  one  and  the  coupling 
coefficient  is  calculated  appropriately  (lines  8765  to  8815) .   If  the 
old  transition  mode  is  the  last  one  in  this  string,  the  decay  chain  is 
shortened  by  one  and  the  test  starts  over  again  (lines  9135  to  9160). 
If  the  length  of  the  transition  chain  is  now  zero,  the  end  flag  is  set 
to  one  and  control  is  returned  to  Decay. 

The  next  stage  of  testing  begins  by  recovering  the  atomic  number 
and  atomic  weight  of  this  isotope  (lines  8820  to  8825)  and  determining 
the  atomic  weight,  atomic  number  and  atomic  state  of  the  daughter 
isotope,  based  on  the  transition  mode  (lines  8830  to  9015).   During  this 
process,  a  note  is  made  if  the  isotope  emits  an  alpha  particle  or  a 
proton  during  the  process  of  transition.   Once  this  is  constructed  (line 
9020),  the  isotope  vector  is  searched  to  determine  if  this  isotope  is  to 
be  considered  in  calculations  (lines  9110  to  9130).   If  it  isn't,  the 
program  loops  back  to  find  another  daughter  (line  9030).   If  it  is 
found,  the  location  of  this  isotope  is  stored  in  I  (line  9035). 
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If  an  alpha-particle  or  proton  is  emitted  during  the  transition, 
the  isotope  vector  is  searched  for  the  appropriate  particle  (lines  9040 
to  9100).   If  it  is  found,  the  location  of  this  isotope  is  stored  in  the 
appropriate  element  of  Frac,  otherwise  a  zero  is  placed  there. 

Finally,  when  a  new  daughter  is  located,  the  string  Fl$  is  updated 
and  the  length  of  the  transition  chain  is  increased  by  one.   Control 
then  returns  to  Decay  (lines  9165  to  9205). 

C.21.   Subroutine  Vectout 

The  final  subroutine  of  KSIG,  is  Vectout  (lines  9250  to  9655).   Its 
purpose  is  to  construct  a  concentration  vector  and  store  it  on  disk  1. 

The  first  step  of  this  subroutine  is  to  search  the  isotope  vector  for 

-99 
all  isotopes  whose  concentration  is  greater  than  10    grams  (lines  9270 

to  9345).   Once  such  an  isotope  has  been  found,  an  entry  for  the 

concentration  vector  is  constructed.   The  process  used  to  construct  this 

entry  is  identical  to  that  used  in  Inin  (lines  9385  to  9510). 

Next,  the  actinide  vector  is  searched  for  isotopes  with 

-99 
concentrations  greater  than  10    grams  (lines  9350  to  9375).   A  similar 

procedure  is  followed  to  construct  the  entry  for  the  concentration 

vector.   To  avoid  duplication  of  isotopes  which  appear  in  both  the 

isotope  vector  and  the  actinide  vector,  the  isotopes  appearing  in  both 

are  skipped  during  the  search  of  the  isotope  vector  (lines  9280  to 

9325). 

Finally,  when  all  entries  have  been  constructed,  output  beings. 

First,  the  new  file  is  created  (lines  9515  to  9545).   If  an  error  occurs 

while  creating  this  file,  provision  is  made  for  recovering  from  the 

error  (lines  9595  to  9650).   If  no  error  occurs,  the  data  are  written 
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sequentially  to  the  file  (lines  9550  to  9580) ,  the  file  is  closed  (line 
9585),  and  control  is  returned  to  the  main  routine. 


66 


IV.   Results  and  Conclusions 

A.   General  Operation  of  KSIG 

KSIG  is  an  interactive  program.   It  has  been  constructed  to  be 
highly  "user  friendly".   The  only  stage  of  the  program  which  requires 
the  presence  of  the  operator  is  the  first,  input,  stage.  This  stage 
requires  little  time  provided  the  data  files  used  have  been  previously 
stored  on  a  data  disk.   A  sample  dialogue  where  this  is  the  case  is 
presented  below.   Sample  input  which  deviates  from  the  general  case  is 
included  in  parentheses  () .   All  computer  responses  are  included  in 
quotations  "". 

1.  Place  the  Basic  System  disk  into  drive  0. 

2.  Turn  on  the  computer  and  the  disk  drive  unit.  The  computer 
responds  by  loading  the  Basic  System. 

3.  Remove  the  Basic  System  disk  and  place  the  KSIG  Master  disk  into 
drive  0. 


4.  Type  in  LOAD  "KSIG"  and  press  the  | ENTER |  key.  The  computer 
responds  by  loading  the  first  half  of  KSIG  into  the  computer 
memory. 

5.  Press  the  |RUN|  key. 

"Make  certain  your  Data  Disk  is  in  Drive  1 

and  that  the  paper  on  your  printer  Is  lined  up  with  the  top 

press  CONT  when  ready" 

6.  Place  the  disk  with  the  data  files  in  drive  1,  roll  the  computer 

paper  up  so  that  the  perforations  line  up  with  the  metal  bar  above 

the  print  head,  and  then  press  the  |C0NT  |  key. 

"Do  you  wish  to  input  a  new  power/time  history  or  use  a  stored 
one 


STORED 
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7.  If  the  power  history  file  is  stored  already,  press  |K6|.   If  you 
need  to  input  a  new  power  history  press  |K5 | . 
(Press  |K6|) 

"Enter  the  name  of  the  ASCII  file  in  which  the  data  are  stored" 
8.  Enter  the  name  of  the  file  on  the  data  disk  which  contains  the 
power/time  history.   Only  files  previously  saved  by  KSIG  will  be 
used. 


(Type:   FULL  | ENTER |) 

"Do  you  wish  to  consider  fission  product  production  or 
just  neutron  activation  and  decay" 


|FISS  PROD]    | NO  FISS  PROD | 
9.   If  the  concentrations  of  fission  products  are  to  be  calculated 
press  |K5|.   If  not,  then  press  |K6 1 . 
(Press  |K5|) 

"What  is  the  threshold  for  output  in  grams  (Default  is  IE-5)" 
10.   The  computer  needs  to  know  the  minimum  mass  which  must  be  obtained 
in  order  for  an  isotope  to  be  output  in  the  output  table.   If  this 


mass  is  10   grams  simply  press  | ENTER | ■   If  not,  type  in  the  mass 


required  in  grams  and  press  | ENTER] 


(Type:   IE-4  | ENTER |) 

"Are  you  interested  in  only  certain  isotopes  or  all  isotopes" 


I CERTAIN |    | ALL  | 

11.   If  the  concentration  of  all  1306  isotopes  is  wanted,  press  |K6|. 

If  the  concentration  of  a  select  group  of  isotopes,  press  |K5 | • 
(Press  |K5|) 

"Those  Isotopes  you  are  interested  in  are:" 

IpQISOnI    |dOSE  I  I  OTHER  I 
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12.  Pressing  |K5|  indicates  that  the  concentrations  of  the  strong 

neutron  absorbers  will  be  calculated.   Pressing  |K6_|  means  that  the 

concentration  for  isotopes  with  large  gamma  yields  will  be 

calculated.  Pressing  |K7_|  indicates  that  a  different  group  of 

isotopes  will  be  considered. 

(Press  ||7|) 

"Do  you  wish  to  input  new  isotopes  or  use  previously  stored  ones" 


| STORED |    | NEW  I 

13.  Pressing  ]K5|  indicates  that  a  file  containing  the  isotopes  of 
interest  exists  on  the  data  disk.   Pressing  |K6_|  indicates  that  a 
new  file  must  be  constructed.   Only  isotope  files  constructed  by 
KSIG  will  work. 

(Press  ||5|) 

"What  is  the  name  of  the  file  where  the  isotopes  are  stored" 

14.  The  computer  needs  to  know  the  name  of  the  file  where  the  list  of 


isotopes  is  stored.   Key  in  the  name  then  press  | ENTER [ . 


(Type:   TEST  | ENTER | ) 

"Do  you  wish  to  input  a  new  isotope  inventory  or  use  a  stored  one" 


NEW     STORED 


15.  Pressing  |K6|  indicates  that  a  file  containing  the  initial 
concentration  of  the  isotopes  already  exists  on  the  data  disk. 
Pressing  |K5_|  indicates  that  a  new  file  must  be  constructed. 
Again,  only  a  file  constructed  by  KSIG  will  work. 

(Press  | K6 | > 

"Enter  the  name  of  the  file  these  data  are  stored  in" 

16.  The  computer  needs  to  know  the  name  of  the  file  where  the 
concentrations  of  isotopes  are  stored.   Key  in  the  name  then  press 
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ENTER  . 


(Type:   INVTYP  1  ENTER | ) 

"Do  you  wish  to  save  the  final  output  vector" 
| YES |    | NO | 

17.  The  computer  wants  to  know  whether  or  not  the  concentrations 
calculated  by  this  run  are  to  be  saved  in  a  concentration  file. 
If  they  are,  press  |K5 | .   If  not,  press  |K6 | . 

(Press  ||||) 

"Input  the  name  of  the  output  file 
Default  is  0UT1" 

18.  The  computer  needs  to  know  what  the  output  file  should  be  called. 


If  it  is  to  be  called  0UT1,  simply  press  | ENTER | ■   If  not,  then 
enter  the  name  the  file  is  to  have. 


(Type:   TESTjDUT  | ENTER | ) 

The  first  alternative  to  be  explored  is  the  new  power  history 
alternative.   This  alternative  requires  only  as  much  time  as  it  takes  to 
key  in  the  data.   If  the  operator  chooses  to  input  a  new  power/time 
history,  steps  7  and  8  of  the  above  would  be  replaced  by  the  following. 

"Do  you  wish  to  input  a  new  power/time  history  or  use  a  stored  one" 


| NEW |    | STORED | 
7a.   (Press  | IF|  ) 

"Input  the  name  of  the  file.   Default  will  be  P0W1" 
7b.   The  computer  needs  to  know  what  the  new  power/time  history  should 

be  named.   If  it's  to  be  named  P0W1,  simply  press  1  ENTER | ■   If  not, 

then  enter  the  name  that  the  power/time  history  file  will  be 

called. 
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(Type:   SHORT  [ENTER |) 

"What  will  the  power  be  stored  as  {FLUX/POWER}" 


|  POWERj    I  FLUX  I 

7c.  Pressing  |K6|  indicates  that  the  neutron  flux  will  be  entered  as  a 

function  of  time.   Pressing  |K5|  means  that  the  thermal  power 

produced  by  the  actinides  whose  concentrations  have  been  input  will 

be  entered  as  a  function  of  time. 

(Press  |kF|) 

"Input  the  power/time  steps 

To  leave  this  input  mode  just  hit  (ENTER)  when  asked  for 
the  flux  or  power" 

"Enter  the  power  (mW/CELL)  or  FLUX  {N/CM"2S}" 

7d.   If  |K6_|  was  pressed  in  response  to  7c,  then  the  computer  needs  the 

neutron  flux.   If  |K5J  was  pressed,  then  the  computer  needs  the 

thermal  power.  Enter  the  appropriate  number,  or  if  there  are  no 


more  entries  then  press  | ENTER | 


(Type:   14  | ENTER | ) 
"Enter  the  length  of  the  time  step" 
7e.   The  computer  needs  to  know  the  length  of  the  decay  step. 


(Type:   1  | ENTER | ) 
"Enter  the  time  units  {S/M/H/D/Y}" 
7f.  Now  the  computer  wants  the  units  used  for  the  time  step.   Enter  S 
for  seconds,  M  for  minutes,  H  for  hours,  D  for  days,  and  Y  for 
years.   Upon  completion  of  this  step,  the  computer  prints  the  data 
file  entry  created. 


(Type:   D  | ENTER  1 ) 
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"1.4000  E+01  1.0000E+00  D" 

"Enter  the  power  {MW/CELL}  or  flux  {N/CM"2S}" 
7d'.   The  computer  is  ready  for  the  second  power/time  step. 


(Type:   12  | ENTER [ ) 

"Enter  the  length  of  the  time  step" 


7e'.   (Type:   1  | ENTER |) 

"Enter  the  time  units  {S/M/H/D/Y}" 


IV.      (Type:   Y  |  ENTER  | ) 

"1.2000E+01   1.0000  E+00  Y" 

"Enter  the  power  {MW/CELL}  or  flux  {N/CM~2S}" 


"Enter  the  power  {MW/CELL}  or  flux  {N/CM'2S}" 


7d  .   (Press  | ENTER j) 

"Do  you  wish  to  consider  fission  product  production  or  just 
neutron  activation  and  decay" 


FISS  PROD     NO  FISS  PROD 


The  second  alternative  to  be  explored  is  the  creation  of  a  new 
isotope  list.   This  procedure  may  require  a  great  deal  of  time.   Typical 
run  times  vary  from  about  5  minutes  to  about  two  or  three  hours, 
depending  on  the  number  of  isotopes  of  interest  and  how  tightly  isotopes 
are  coupled.   If  the  operator  chooses  to  develop  a  new  list  of  isotopes, 
steps  13  and  14  of  the  main  procedure  would  be  replaced  by  the 
following. 

"Do  you  wish  to  input  new  isotopes  or  use  previously  stored  ones" 


STORED     NEW 
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13a.   (Press  |K6|) 

"Enter  the  isotopes  you  are  interested  in 

When  finished  entering  new  isotopes  of  interest  press  enter 

when  asked  for  the  atomic  number" 

"Enter  the  atomic  number" 

13b.   The  computer  wants  to  know  the  atomic  number  of  an  isotope  of 

interest.   This  is  the  Z  number  of  an  isotope.   To  continue,  enter 

the  appropriate  number.   When  there  are  no  more  isotopes  of 


interest  simply  press  | ENTER | 


(Type:   27  | ENTER | ) 
"Enter  the  atomic  weight" 
13c.   The  computer  needs  to  know  the  atomic  weight  of  the  isotope  of 
interest.   To  continue  enter  the  appropriate  number. 


(Type:   60  | ENTER |) 

"Are  you  interested  in  the  excited  or  ground  state" 


EXCITED     GROUND 


13d.   If  this  isotope  of  interest  is  in  the  excited  state,  press  |K5 | . 

If  it  is  in  the  ground  state,  press  |K6 | .   Upon  completion  of  this 

step,  the  computer  procedes  to  print  all  isotopes  which  pass  the 

test  for  inclusion  into  the  library,  including  the  isotope  just 

entered. 

(Press  |K6|) 

"*270600 
270601 
270590 

280600" 
"Enter  the  atomic  number" 
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13b'.   The  computer  is  ready  for  another  isotope  of  interest. 


(Type:   28  | ENTER | ) 

"Enter   the  atomic  weight" 

13d'.      (Press    |fj[|) 

"280600 
280590 
280580" 

"Enter  the  atomic  number" 
"Enter  the  atomic  number" 


13b  .   (Press  | ENTER |) 

"Input  the  name  of  the  new  isotope  file.   The  default  will  be 

file:  IS01." 
13e.   The  computer  needs  to  know  what  the  new  isotope  file  should  be 


called.   If  it  is  to  be  called  IS01,  simply  press  | ENTER | ■   If  not 
then  enter  the  name  the  file  is  to  have. 


(Type:   CO60  | ENTER | ) 

"Do  you  wish  to  input  a  new  isotope  inventory  or  use  a  stored  one" 


| NEW]    | STORED | 

The  final  alternative  to  be  explored  is  the  creation  of  a  new 
isotope  inventory  file.   This  step  uses  very  little  time,  only  as  much 
time  as  it  takes  to  key  in  the  data.   IF  the  operator  chooses  to  create 
a  new  isotope  inventory  file,  steps  15  and  16  of  the  main  procedure 
would  be  replaced  by  the  following. 

"Do  you  wish  to  input  a  new  isotope  inventory  or  use  a  stored  one" 


NEW     STORED 
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15a.   (Press  | K5 | ) 

"Input  the  isotope  inventories 

To  leave  this  input  mode  press  (ENTER)  when  asked  for 
atomic  number 

To  indicate  that  the  naturally  occurring  element  is  being  input 
rather  than  a  specific  isotope,  press  (ENTER)  when  asked  for 
atomic  weight" 

"Enter  the  atomic  number" 

15b.   The  computer  wants  to  know  the  atomic  number  of  an  isotope  which 

has  an  initial  concentration.   To  continue  enter  the  Z  number  of 

such  an  isotope,  or  if  all  isotopes  whose  initial  concentration  is 


known  to  have  already  been  input,  press  | ENTER | 


(Type:   27  | ENTER | ) 
"Enter  the  atomic  weight" 
15c.   The  computer  needs  to  know  the  atomic  weight  of  this  isotope.   If 
this  is  an  element,  say  naturally  occurring  oxygen,  rather  than  a 


specific  isotope,  say  0-16,  then  simply  press  | ENTER | ■   Otherwise, 
enter  the  appropriate  atomic  weight. 


(Type:   60  | ENTER [ ) 

"Is  this  isotope  in  the  excited  or  ground  state" 


j  GROUND  1    | EXCITED | 
15d.   If  this  isotope  is  in  the  excited  state,  press  |K6| .   If  it  is  in 

the  ground  state  press  | K5 | . 

(Press  |K5|) 

"Enter  the  isotope/element  inventory  in  grams" 
15e.   If  an  atomic  weight  was  entered  in  step  15c,  the  total  mass  of 

this  isotope  is  needed.   If  nothing  was  entered  at  step  15c,  the 

total  initial  mass  of  the  naturally  occurring  element  needs  to  be 
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entered.   Upon  completion  of  this  step,  the  computer  proceeds  to 
print  the  data  file  entry  or  entries  just  created. 


(Type:   1000  | ENTER | ) 
"270600  1.000E+03" 
"Enter  the  atomic  number" 
15b'.   The  computer  is  ready  for  another  isotope  or  element. 


(Type:   26  | ENTER |) 
"Enter  the  atomic  weight" 


15c'.   (Press  | ENTER |) 

"Enter  the  isotope/element  inventory  in  grams" 


15e'.   (Type:   100  | ENTER |) 

"260540  5.8100E+00 

260560  9.1750E+01 

260570  2.1500E+00 

260580  2.9000E-01" 

"Enter  the  atomic  number" 


"Enter  the  atomic  number" 

15bn.   (Press  | ENTER |) 

"do  you  wish  to  save  this  vector" 

I  YES"|    \W\ 

15f.   If  this  vector  is  to  be  saved  for  later  runs,  press  |K5  |  .   If  not, 

press  |K6 | . 

(Press  IHI) 

"Input  the  name  of  the  new  isotope  Inventory  file. 
The  default  will  be  INV1" 

15g.   The  computer  needs  to  know  what  the  new  concentration  file  should 

be  called.   If  it  is  to  be  called  INV1,  press  | ENTER | .   If  not, 

then  enter  the  name  of  the  new  file. 
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(Press  I  ENTER  I ) 

"Do  you  wish  to  save  the  final  output  vector" 

I  yes"|   |no| 

The  second  stage  of  KSIG,  the  calculation  and  output  stage,  does 
not  require  the  presence  of  an  operator.   This  stage  requires  a  great 
deal  of  time.  An  average  time  step,  with  a  non-zero  neutron  flux,  and 
which  calculates  fission  products,  requires  anywhere  from  15  minutes  to 
a  couple  of  hours,  depending  on  the  number  of  isotopes  being  calculated. 
If  no  transmutation  takes  place,  a  time  step  can  take  as  little  as  three 
minutes  or  as  many  as  20  minutes.   The  run  detailed  in  Appendix  C.l 
required  five  minutes,  while  the  run  detailed  in  Appendix  C.2  required 
&i   hours. 

An  attempt  was  made  to  reduce  the  calculation  time,  by  reducing 
required  accuracy.   This  was  done  by  taking  the  first  two  time  steps  of 
the  problem  in  Appendix  C.2  and  varying  the  output  threshold  while 
holding  everything  else  constant.   Table  4  contains  a  summary  of  the 
results.   This  test  demonstrated  a  substantial  decrease  in  calculation 
time,  with  a  minimal  change  in  accuracy.   In  fact,  these  changes  could 
be  considered  insignificant. 


Table  4.   The  reduction  of  calculation  time,  due  to 
lost  accuracy. 


Output 
Threshold 

Mass  of 
CS-134 

X   Change 

Time 
(min) 

io-5 

ID"4 
IO"3 

io"2 

2.2915160E-1 
2.2915142E-1 
2.2914824E-1 
2.2911639E-1 

7.86  x  10-5 
1.47  x  10~3 
1.54  x  IO-2 

52.6 
45.4 
39.8 
34.6 
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B.   Comparison  of  Sample  Runs 

To  test  the  accuracy  of  KSIG,  two  sample  runs  where  made.   The 
first  run  was  a  very  simple  'hand-type'  calculation.   Its  purpose  was  to 
demonstrate  that  KSIG  can  perform  a  simple  calculation  accurately.   The 
second  was  a  complex  run  made  for  comparison  with  0RIGEN2. 

B.l.   The  Simple  Run 

The  simple  test  performed  involved  the  Beta-decay  of  Cobalt-60  to 
Nickel-60.   An  initial  sample  size  of  1000  grams  of  Cobalt-60  was 
assumed,  and  the  concentrations  of  both  Cobalt-60  and  Nickel-60  were 
calculated  for  a  1  year  decay  time. 

Since  the  object  of  this  test  was  to  determine  the  operation  of  the 
code,  and  not  the  authenticity  of  the  data  used,  the  radioactive 
half-lives  of  these  two  isotopes  were  found  in  Appendix  B.l.   The 

Q 

half-life  of  Cobalt-60  was  found  to  be  1.663  x  10  seconds,  while 
Nickel-60  was  found  to  be  radioactively  stable. 

The  equation  used  in  the  hand-calculation  of  the  concentration  of 
Cobalt-60  was, 

0   "X27t 
N27  =  N27  e     '  (4a) 

where,  N_7  is  the  initial  concentration  of  CO-60,  and 

A„_  is  the  radioactive  decay  constant  for  C0-60. 
The  equation  used  to  calculate  the  concentration  of  Nickle-60  was, 

0     "X27t 
N28  =  N27(1_e     >•  (4-2) 

The  radioactive  decay  constant  is  found  by  using  Eq.  (2.16),  when  flux 
is  zero. 


78 

Substituting  into  these  equations  gives  a  final  concentration  of 
876.74969  grams  of  Co-60  and  123.25031  grams  of  Ni-60.   Comparison  to 
the  KSIG  results  demonstrates  that  KSIG  predicted  these  results  exactly. 
A  copy  of  this  KSIG  run  can  be  found  in  Appendix  C.l. 

B.2.   Comparison  of  ORIGEN2 

The  second  comparison  run  is  a  complex  run  involving  ten 
irradiation  steps  and  twelve  decay  steps  for  six  different  isotopes. 
The  KSIG  version  of  this  run  is  found  in  Appendix  C.2.  0RIGEN2  uses  the 
same  data  used  by  KSIG. 

The  concentrations  of  Xe-135,  Xe-133,  X3-131,  Cs-135,  Cs-134,  and 
Cs-133,  were  calculated  during  and  after  a  constant  irradiation  of 
14  MW/fuel  element.   The  initial  concentrations  used  were  those  of  a 
hypothetical  fuel  element.   Both  0RIGEN2  and  KSIG  were  used  to  perform 
these  calculations.   The  results  from  KSIG  are  summarized  in  Table  5  and 
those  from  0RIGEN2  in  Table  6.   These  two  tables  were  then  compared  to 
each  other  by  using  the  equation, 


%  dlff  ■  '0R  "RKSIG'  x  100%,  (4.3) 


where,  %   diff  is  the  percentage  difference  between  the  two, 

OR  is  the  concentration  determined  by  0RIGEN2,  and 
KSIG  is  the  result  determined  by  KSIG. 

The  results  of  this  comparison  are  found  in  Table  7. 

Upon  examination  of  Table  7,  one  observes  that  the  maximum 
difference  found  is  six  percent,  while  the  typical  range  of  differences 
lies  between  .5  and  three  percent.   These  results  are  very  good  as  a 
first  approximation. 
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Table  5.  The  concentrations  of  six  test  isotopes  during  and  after  an 
irradiation  of  14  MW/fuel  element,  calculated  by  KSIG.  The 
units  are  grams  per  fuel  element. 


Time 

Xe-135 

Xe-133 

Xe-131 

Cs-135 

Cs-134 

:s-133 

During 

Irradiation 

35  D 

8.461E-2 

4.137 

5.622 

5.362 

4.556E-2 

14.45 

70  D 

8.502E-2 

4.184 

13.74 

10.83 

0.2292 

33.59 

105  D 

8.539E-2 

4.183 

21.90 

16.31 

0.5508 

52.61 

140  D 

8.560E-2 

4.182 

29.97 

21.81 

1.003 

71.49 

175  D 

8.567E-2 

4.180 

37.93 

27.31 

1.581 

90.21 

210  D 

8.564E-2 

4.178 

45.79 

32.81 

2.278 

108.8 

245  D 

8.552E-2 

4.177 

53.54 

38.30 

3.091 

127.2 

280  D 

8.532E-2 

4.175 

61.17 

43.79 

4.014 

145.4 

315  D 

8.505E-2 

4.174 

68.68 

49.26 

5.044 

163.5 

365  D 

8.464E-2 

4.172 

79.18 

57.11 

6.694 

189.0 

After 

Irradiation 

30  M 

9.213E-2 

4.172 

79.19 

57.12 

6.694 

189.1 

1  H 

9.863E-2 

4.171 

79.19 

57.12 

6.694 

189.1 

2  H 

1.093E-1 

4.171 

79.21 

57.12 

6.693 

189.1 

3  H 

1.175E-1 

4.169 

79.22 

57.14 

6.693 

189.1 

4  H 

1.234E-1 

4.168 

79.23 

57.15 

6.693 

189.1 

5  H 

1.274E-1 

4.165 

79.24 

57.15 

6.693 

189.2 

10  H 

1.282E-1 

4.143 

79.29 

57.20 

6.692 

189.3 

15  H 

1.182E-1 

4.109 

79.34 

57.25 

6.690 

189.4 

20  H 

9.077E-2 

4.063 

79.39 

57.29 

6.689 

L89.5 

1  D 

7.437E-2 

4.021 

79.43 

57.31 

6.688 

189.6 

2  D 

1.683E-2 

3.694 

79.66 

57.39 

6.682 

190.1 

3  D 

3.095E-2 

3.318 

79.87 

57.40 

6.676 

190.6 
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Table  6.  The  concentrations  of  six  test  isotopes  during  and  after  an 
irradiation  of  14  MW/fuel  element,  calculated  by  0RIGEN2. 
The  units  are  grams  per  fuel  element. 


Time 

Xe-135 

Xe-133 

Xe-131 

Cs-135 

Cs-134 

Cs-133 

During 

Irradiation 

35  D 

8.391E-2 

3.982 

5.612 

5.273 

.04849 

14.56 

70  D 

8.464E-2 

4.041 

13.75 

10.68 

0.2381 

33.90 

105  D 

8.491E-2 

4.037 

21.95 

16.11 

0.5690 

53.16 

140  D 

8.501E-2 

4.033 

30.05 

21.54 

1.034 

72.25 

175  D 

8.515E-2 

4.029 

38.05 

27.00 

1.625 

91.18 

210  D 

8.499E-2 

4.026 

45.94 

32.45 

2.340 

109.9 

245  D 

8.493E-2 

4.02'3 

53.72 

37.90 

3.170 

128.6 

280  D 

8.478E-2 

4.020 

61.38 

43.35 

4.111 

147.0 

315  D 

8.454E-2 

4.017 

68.92 

48.79 

5.159 

165.3 

365  D 

8.417E-2 

4.048 

79.46 

56.57 

6.833 

191.0 

After 

Irradiation 

30  M 

4.048 

79.47 

56.57 

6.833 

191.0 

1   H 

4.049 

79.47 

56.57 

6.833 

191.0 

2  H 

4.049 

79.48 

56.58 

6.833 

191.0 

3  H 

4.048 

79.50 

56.59 

6.833 

191.1 

4  H 

4.046 

79.51 

56.60 

6.832 

191.1 

5  H 

4.044 

79.52 

56.61 

6.832 

191.1 

10  H 

4.025 

79.57 

56.66 

6.831 

191.2 

15  H 

3.993 

79.62 

56.70 

6.830 

191.3 

20  H 

3.951 

79.67 

56.74 

6.829 

191.4 

1  D 

3.911 

79.71 

56.77 

6.827 

191.5 

2  D 

3.596 

79.94 

56.84 

6.821 

192.0 

3  D 

3.232 

80.14 

56.85 

6.815 

192.5 

Table  7.  The  percentage  difference  between  the 
concentrations  found  by  KSIG  (Table  5) 
and  0RIGEN2  (Table  6). 
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Time 

Xe-135 

Xe-133 

Xe-131 

Cs-135 

CS-134 

Cs-133 

During 

Irradiation 

35  D 

0.83 

3.89 

0.18 

1.69 

6.04 

0.76 

70  D 

0.45 

3.54 

0.07 

1.38 

3.74 

0.91 

105  D 

0.57 

3.62 

0.23 

1.24 

3.20 

1.03 

140  D 

0.69 

3.69 

0.27 

1.25 

3.00 

1.05 

175  D 

0.61 

3.75 

0.32 

1.15 

2.71 

1.06 

210  D 

0.76 

3.78 

0.33 

1.11 

2.65 

1.00 

2A5  D 

0.69 

3.83 

0.34 

1.06 

2.49 

1.09 

280  D 

0.64 

3.86 

0.34 

1.01 

2.36 

1.09 

315  D 

0.60 

3.91 

0.35 

0.96 

2.23 

1.09 

365  D 

0.56 

3.06 

0.35 

0.95 

2.03 

1.05 

After 

Irradiation 

30  M 

3.06 

0.35 

0.97 

2.03 

0.99 

1  H 

3.01 

0.35 

0.97 

2.03 

0.99 

2  H 

3.01 

0.34 

0.95 

2.05 

0.99 

3  B 

2.99 

0.35 

0.97 

2.05 

1.05 

4  H 

3.02 

0.35 

0.97 

2.03 

1.05 

5  H 

2.93 

0.35 

0.95 

2.03 

0.99 

10  H 

2.98 

0.35 

0.95 

2.03 

0.99 

15  H 

2.91 

0.35 

0.97 

2.05 

0.99 

20  H 

2.83 

0.35 

0.97 

2.05 

0.99 

1  D 

2.81 

0.35 

0.95 

2.04 

0.99 

2  D 

2.73 

0.35 

0.97 

2.04 

0.99 

3  D 

2.66 

0.34 

0.97 

2.04 

0.99 
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Further  examination  of  the  output  data  show  that  the  neutron  flux 
calculated  by  KISG  is  consistently  less  than  that  calculated  by  ORIGEN2 
(see  Table  8) .  This  could  be  a  contributing  factor  in  the  difference 
between  the  results. 

C .   Summary 

The  main  objective  of  this  research,  as  stated  in  Chapter  I,  was  to 
down-size  an  isotope  inventory  code  and  transfer  it  to  a  microcomputer. 
This  was  accomplished  by  forfeiting  a  little  accuracy.   By  giving  up  a 
little  more  accuracy,  calculation  times  were  substantially  reduced  also. 

A  second  objective  was  to  reduce  the  volume  of  output.   The  0RIGEN2 
run  of  problem  IVB.2  required  190  pages  of  output.   the  comparable  KSIG 
run  required  only  27  pages  of  output.   Therefore,  this  objective  was 
accomplished. 

The  final  objective  was  to  reduce  the  cost  of  isotope  inventory 
calculations.  This  objective  was  accomplished,  also.  To  see  this, 
consider  that,  after  the  initial  cash  outlay  of  five  to  six  thousand 
dollars  for  the  computer  system,  an  average  KSIG  run  will  only  cost  one 
or  two  dollars  per  run  for  paper,  disks  and  upkeep.   An  average  0RIGEN2 
run  costs  approximately  90  dollars.   Therefore,  the  computer  system  is 
totally  paid  for  after  approximately  100  computer  runs. 

One  other  advantage  to  operating  a  microcomputer  is  the  ease  with 
which  program  changes  are  made.   The  operator  has  total  flexibility  in 
correcting  a  code,  tailoring  a  code  for  a  specific  job,  or  programming 
the  code  to  output  to  disk  at  select  points  in  time.   This  can  not  be 
easily  accomplished  using  a  packaged  code  on  someone  else's  computer 
system. 
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Table  8.   The  neutron  flux  calculated  by 
both  KSIG  and  0RIGEN2  and  the 
percentage  difference  between 
the  two. 


Time 

0RIGEN2 

KSIG 

%  Diff 

35  D 

2.23E14 

2.20E14 

1.35 

70  D 

2.22E14 

2.19E14 

1.35 

105  D 

2.22E14 

2.19E14 

1.35 

140  D 

2.22E14 

2.19E14 

1.35 

175  D 

2.22E14 

2.20E14 

0.901 

210  D 

2.23E14 

2.21EH 

0.897 

245  D 

2.23E14 

2.22E14 

0.448 

280  D 

2.24E14 

2.23E14 

0.446 

315  D 

2.26E14 

2.25E14 

0.443 

365  D 

2.27E14 

2.28E14 

0.441 
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One  disadvantage  to  owning  your  own  system  is  that  all  maintenance 
becomes  the  owner's  responsibility.   This,  however,  is  not  always  a 
disadvantage.   At  least  the  operator  understands  the  condition  of  the 
equipment  at  all  times. 
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V.   Suggestions  for  Further  Study 

Several  possibilities  for  further  study  do  exist.   The  first 
possibility  lies  in  the  generation  of  some  of  the  output  tables 
generated  by  0RIGEN2.   These  tables  could  include  a  neutron  poison 
table,  photon  tables,  and  radioactive  ingestion/inhalation  hazard 
tables.   These  could  be  created  using  the  data  generated  by  KSIG. 

A  second  possibility  might  be  to  expand  KSIG  to  handle  spatial 
dependence.  This  could  then  be  coupled  to  a  neutronics  code.  This 
would  lead  to  a  determination  of  spatial  effects  of  nuclear  poisons. 

Third,  with  advances  in  computer  technology,  new,  faster,  personal 
systems  are  constantly  being  developed.   A  possibility  for  further  study 
might  stem  from  transferring  KSIG  to  one  of  these  systems. 

Finally,  KSIG  has  only  been  developed  and  tested  with  data  for  a 
Uranium  fueled  light  water  reactor.   Data  for  other  reactor  types  exist 
and  with  a  little  work  they  could  be  formed  into  the  same  structure  as 
the  files  used  by  KSIG.   With  a  few  minor  modifications,  KSIG  could  be 
made  to  calculate  concentrations  for  different  reactor  types. 
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APPENDIX  A:      Program  KSIG 


89 


APPENDIX  A    FILE:K3I6      PA6E    1 

5  Rti»B=TlHEDflTE  MOD  84400 

10  C0I1  T.  Flu* ,  Power ,  Rti  »e,  Thresh 

15  CALL  Powinl8Power,Ptype,P», Thresh) 

20  CALL  kotope(eiso,N,Ptype> 

25  DELSUB  Pmin.Isotope.libin 

JO  L0AD5UB  ALL  FROM  "PR0S2" 

35  ALLOCATE  fi(N) ,B(N), 1$ (N) t 7], fiact (82) , Bact (82) ,Act*(82)E7] 

40  CALL  Isintrlso.N, !(!!>, Actsm) 

45  CALL  lnin(I$(l),A(t),Act«m,Aactm,N) 

50  CALL  Typout(Typout,Foiit«) 

55  CALL  Fri 

60  DELSUB  Isin,Inin,Typout,Fr« 

65  T=0 

70  Flux=0 

75  Power=0 

80  Page=l 

85  CALL  Out(I»U),A(I),Act*(l),Aact(l),Typout,N,Page) 

TO  CALL  AbundlIJ(II.A(t),B(t),Act»<t>,Aactm,Bactm,t'Power,Ptype,Eflag,N,P» 

95  IF  Eflag=l  THEN  Endfl 

100  CALL  Tran(A(l),Bm,N,Aact(t),Bactm> 

105  SOTO  85 

110  EndfklF  FoutlO'NONE'  THEN  CALL  Vectout<I*(l),Am,Act*<l),AacUt),N,Fout«) 

115      END 

120  SUB  Pomi n (SPower , Pt ype, FJ  * , Thresh) 

125  DM  A«II00],8$I1000)[23] 

130  60SUB  Clscreen 

135  BASS  STORAGE  IS  ":HP82TO1, 700,1" 

140  CONTROL  1,1 |5 

145  PRINT  "MAKE  CERTAIN  THAT  YOUR  DATA  DISK  IS  IN  DRIVE  I" 

150  PRINT  'AND  THAT  THE  PAPER  ON  YOUR  PRINTER  IS  LINED  UP  WITH  THE  TOP" 

155  PRINT  "PRESS  CONT  NHEN  READY" 

160  PAUSE 

145  GOSUB  Clscreen 

170  DISP  "  DO  VOU  NISH  TO  INPUT  A  NEW  POWER/TIME  HISTORY  OR  USE  A  STORED  ONE" 

175  ON  KEY  5  LABEL  "NEN"  60T0  New 

180  ON  KEY  6  LABEL  "STORED"  SOTO  Stored 

185  60T0  185 

190  Stored:   OFF  KEY 

195  INPUT  "ENTER  THE  NAHE  OF  THE  ASCII  FILE  IN  WHICH  THE  DATA  ARE  STORED", Fl* 

200  ON  ERROR  60T0  Err 

205  ASSIGN  »Power  TO  Fl« 

210  OFF  ERROR 

215  ENTER  SPower:A$ 

220  OFF  ERROR 

225  IF  ASO'FLUX"  THEN  240 

230    Ptype=0 

235    GOTO  Endfl 

240  IF  A»O"P0NER"  THEN  255 

245    Ptype-1 

250    GOTO  Endfl 

255  CONTROL  1,1:5 

260  Err:  PRINT  "  FILE: " :F1 »: ■  EITHER  DOES  NOT  EXIST  OR  IS  NOT  FORMATED  PROPERLY" 

245  PRINT  ■   NAKE  A  NEN  SELECTION" 

270  OFF  ERROR 

275  GOTO  170 

280  New:    OFF  KEY 

285  F1I="P0N1" 

290  GOSUB  Clscreen 

295  CONTROL  1.1:5 

300  PRINT  "INPUT  THE  NANE  OF  THE  NEN  FILE.  THE  DEFAULT  HILL  BE  ":F1» 

305  INPUT  Fl» 

310  GGSUB  Clscreen 

315  DISP  "NHAT  WILL  THE  PONER  BE  STORED  AS.  (FLUX/POWER}" 

320  ON  KEY  5  LABEL  "PONER"  60T0  Power 

325  ON  KEY  4  LABEL  "FLUX"  GOTO  Flux 

330  GOTO  330 

335  Power:   OFF  KEY 

340  Ptype=l 

345  B»ll)="PONER" 

350  GOTO  370 
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APPENDIX  A  F1LE:K3I6   PABE  2 

355  Flux:   OFF  KEY 

340  Ptype=0 

365  Bt(l)="FLUX" 

370  CDNTROL  1,1, -5 

375  PRINT  'INPUT  THE  ";B$<1);"/TIHE  STEPS" 

380  PRINT 

385  PRINT  "TO  LEAVE  THIS  INPUT  NODE  JUST  HIT  (ENTER!  MEN  ASKED  FOR 

390  PRINT  'THE  FLUX  OR  PONER" 

395  PRINT 

400  1=1 

405  Al=-1 

410  A=-l 

415  INPUT  "ENTER  THE  PONER  (NN/CELL)  OR  FLUX  {N/Cn"7S>",A 

420  IF  A=AI  THEN  Out 

425  MM 

430  A1=A 

435  CALL  AstnngIA, Bill!) 

440  INPUT  'ENTER  THE  LEN6TH  OF  THE  TINE  STEP1, A 

445  CALL  Astring(A,A$) 

450  Bt(II=B«(I)S"  "Mt 

455  INPUT  'ENTER  THE  TINE  UNITS  tS/DflWl/Y)",?! 

440  IF  TtO'S"  AND  TtO'N"  AND  TtO"H-  AND  TiO'D"  AND  TtO"Y"  THEN  455 

445  Bt(I)=Bt(I>l"  "IT* 

470  PRINT  Bt(I) 

475  SOTO  405 

480  Out:  Fl=((I-l)»24+13)/256 

485  F1=INTIF1)+1 

490  SOSUB  Clscreen 

495  ON  ERROR  SOTO  Fig 

500  CREATE  ASCII  Flt.Fl 

505  OFF  ERROR 

510  ASSI6N  tfmtr   TO  Fit 

515  FOR  J=l  TO  I 

520  OUTPUT  SPonerjBtU) 

525  NEXT  J 

530  OUTPUT  f Poiier: 'END* 

535  ASSIGN  ?Poner  TO  Fit 

540  ENTER  ePo«er:At 

545  60T0  Endfl 

550  Fig:  X=ERRN 

555  If  X<>54  THEN  570 

540  Fl*(LEN(Fll):l]=CHRt(NUHIFl$tLEN(Fl»):l])tI) 

545  SOTO  m 

570  IF  I<>55  AND  X<>64  THEN  595 

575  DiSP  'THIS  DISK  IS  FULL.  TRY  A  DIFFEREN  ONE  AND  PRESS  (CONTP 

580  BEEP 

585  PAUSE 

590  SOTO  495 

595  DISP  "ERROR  ENCOUNTERED  WHILE  TRYING  TO  CREATE  FILE:";Flt 

600  BEEP 

405  STOP 

410  Clscreen:   OUTPUT  2  US1N6  "»,B";255,75 

415  RETURN 

420  Endfl:   60SUB  Clscreen 

425  CONTROL  1,1:5 

430  PRINT  "DO  YOU  WISH  TO  CONSIDER  FISSION  PROUCT  PRODUCTION  OR" 

635  PRINT  "JUST  NEUTRON  ACTIVATION  AND  DECAY  ?" 

640  ON  KEY  5  LABEL  "FISS  PROD"  60T0  640 

445  ON  KEY  6  LABEL  "NO  FISS  PROD"  SOTO  655 

450  60T0  450 

455  Ptype=Ptype*2 

440  OFF  KEY 

665  SOSUB  Clscreen 

670  CONTROL  1,1:5 

675  Thresh=t,E-5 

680  INPUT  "WHAT  IS  THE  THRESHULD  FOR  OUTPUT  IN  GRANS  (DEFAULT  IS  1E-5I", Thresh 

6B5  SUBEND 

690  SUB  Isotope(8Iso,N.Ptype> 

495  DIN  It(1306)[7J,At[75i,EI50),0(50).D»(50>[62],Xt(50)[651,F2«t50),Fl«[50] 

700  DM  Xsec»(900) [75], Dec«(900) 1421, Height (1304), Fiss((400II53I 
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705  MASS  STORAGE  IS  •:HPB2?0I .700.0" 

710  DISP  "ARE  YOU  INTERESTED  IN  ONLY  CERTAIN  ISOTOPES  OR  ALL  ISOTOPES" 

715  ON  KEY  5  LABEL  "CERTAIN1  60T0  Certain 

720  ON  KEY  6  LABEL  "ALL"  SOTO  Al 

725  60T0  725 

730  Al:   OFF  KEY 

735  ASSI6N  (In  TO  "ALL" 

740  SOTO  Endfl 

745  Certain:  DISP  "THOSE  I50TP0PES  YOU  ARE  INTERSTED  IN  ARE:" 

750  ON  KEY  5  LABEL  "POISON"  60T0  Poison 

755  ON  KEY  6  LABEL  "DOSE"  GOTO  Dose 

740  ON  KEY  7  LABEL  "OTHER"  60T0  Other 

765  GOTO  745 

770  Poison:  OFF  KEY 

775  ASSIGN  8Iso  TO  "POISON" 

780  6OT0  Endfl 

7B5  Dose:  OFF  KEY 

790  ASSIGN  8Iso  TO  "DOSE" 

795  GOTO  Endfl 

BOO  Qther:DlSP  "DO  YOU  HISH  TO  INPUT  NEN  ISOTOPES  OR  USE  PREVIOUSLY  STORED  ONES" 

805  ON  KEY  5  LABEL  "STORED"  GOTO  Stored 

810  ON  KEY  6  LABEL  "NEN"  GOTO  Ne« 

815  OFF  KEY  7 

820  60T0  820 

825  Stored:OFF  KEY 

830  MASS  STORAGE  IS  ": HP8290 1.700,1" 

835  INPUT  "NHAT  IS  THE  NAME  OF  THE  FILE  WHERE  THE  ISOTOPES  ARE  STORED?", FH 

840  ON  ERROR  GOTO  Errl 

845  ASSI6N  ?!so  TO  Fit 

850  ON  ERROR  GOTO  Err2 

855  ENTER  ?Iso|A» 

840  N-VALIAt) 

B65  OFF  ERROR 

870  IF  N<1307  THEN  Endfl2 

875  Err2:   OFF  ERROR 

880  DISP  "FILE; ";F1*;-  IS  INCORRECTLY  FORMATED" 

B85  BEEP 

890  GOTO  Stored 

895  Errl:   OFF  ERROR 

900  DISP  "FILE: ";FI«; '  IS  NOT  A  PROPER  FILE  ON  THIS  DISK" 

905  BEEP 

910  GOTO  Stored 

915  Hen:      OFF  KEY 

920  Flux«I.E+I4 

925  Ti 1=844001365 

930  GOSUB  Clscreen 

935  CONTROL  1,1:5 

940  Cl=l 

945  C2=10 

950  PRINT  "ENTER  THE  ISOTOPES  YOU  ARE  INTERESTED  IN" 

955  PRINT 

940  PRINT  "WHEN  FINISHED  ENTERING  NEN  ISOTOPES  OF  INTEREST  PRESS  ENTER" 

965  PRINT  •  NHEN  ASKED  FOR  THE  ATONIC  NUMBER" 

970  PRINT 

975  1=0 

980  I=-l 

985  INPUT  "ENTER  THE  ATONIC  NUMBER", Z 

990  IF  Z=-l  THEN  Out 

995  IF  Hi   OR  T>99  THEN 

1000  BEEP 

1005  6OT0  985 

1010  END  IF 

1015  1=1+1 

1020  Xsec=0 

1025  Dec=0 

1030  Fiss=0 

1035  A=0 

1040  INPUT  "ENTER  THE  ATONIC  NEI6HT",A 

1045  IF  A<1  THEN 

1050  BEEP 
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1055  GOTO  1040 

1060  END  IF 

1065  DISP  'ARE  YOU  INTERESTED  IN  THE  EXCITED  STATE  OR  THE  GROUND  STATE' 

1070  ON  KEY  5  LABEL  "EXCITED'  GOTO  Excited 

1075  ON  KEY  6  LABEL  'GROUND"  GOTO  6round 

1080  GOTO  1080 

1085  Excited:  OFF  KEY 

1090  OISP 

1095  I«(I)=FNSt*(Z,A,"l'l 

noo  mnnjn*"*1 

1105  GOTO  Find  parent 

1110  6round:  OFF  KEY  " 

1115  DISP 

1120  l$(I)=FNSt*(Z,A  "0") 

1125  I*  C I>  F 1; 1 3=-«* 

1130  Find  parent:J=l 

1135  ~  CONTROL  l.OjCl 

1140  PRINT  Hill 

1145  Neightll)=l 

1150  Fl»=" 

1155  F2«="l" 

1140  K*=I$(I)[2:11 

1165  IF  K$="  '  THEN  K*='0" 

1170  CALL  Libin(Xsec*m,Dec«m,Fiss«(l>,K«, Xsec, Dec, Fiss) 

1175  K=0 

1180  K=K*1 

1185  IF  K=Dec»l  THEN  No  dec 

1190  IF  Dec*(K)[2,71<M.(I>[2,7]  THEN  1180 

1195  A«=Decl(K) 

1200  IF  A.U0jll="6"  THEN  No  dec 

1205  0(l)=L0GI21/VAL(A«[24:9J) 

1210  0(1)=FNC1I0(1),AII 

1215  0<I1)=A* 

1220  60T0  Xsec 

1225  No  dec:  0(11=0 

1230  "  D>(1)='  llttDIZtUt'  6" 

1235  Xsec:  K=0 

1240  K=K*1 

1245  IF  K=Xs»c  THEN  No  xsec 

1250  IF  Xsec»(K)C2,7K}I«(IU2,7]  THEN  1240 

1255  A«=Xsec<!K) 

1260  I.ll)=A«U0,LEN(A$t] 

1265  FOR  K=l  TO  VAL(A»[10:1]> 

1270  0(l)=0fll*VAL(A»C7+Kll0:9])IFluxlt.E-24 

1275  NEXT  K 

1280  60T0  Parent 

1285  No  xsec:  X*li>='0" 

1290  Parent:J=J*l 

1295  FOR  K=J-1  TO  1  STEP  -I 

1300  0(K*t)=0(KI 

1305  E(KH)=E(K) 

1310  D*(KHI=M(K> 

1315  XNKMWJIKI 

1320  NEXT  K 

1325  1=1*1 

1330  As=65 

1340  jStS! IF  Dili) C7;  H«°  1  •'TH^IlDt'"!'' " •  Bn'B,! ■ Ec* •  »-9«". "-2n, rt.3n,H.aIph», II _p, N.gx , N.2m 

1345  'iF  7-1=0  THEN  Not  1 

1350  IF  F2»[M;1)='0""THEN 

1355  F2$[J-ljI]="l' 

1360  60T0  1375 

1365  END  IF 

1370  F2.IJ-1;1]='0" 

1375  I.(I)=FNStl(2-l,A,F2«J-I:lll 

1380  K*=I»(II[2:1I 

1385  K=0 

1390  F!ao=0 

1395  K=Ktl 

1400  IF  K=DecH  THEN  Not  1 


93 


APPENDIX  A  FILEsKSH   PAGE  5 

1405     IF  Dec*IK>[2:l]=K«  THEN  FUg=l 

1410     IF  I«<I)t2,7K>0ec«(K![2,7]  THEN  1395 

1415    A*=Dec«IK> 

1420     IF  A$I10(U=-4"  THEN  Not  1 

1425     E(l)=L06(2>/VALIA«[24;9n 

1430     IF  fi*Cll;U="l"  THEN  1445 

1435     IF  A«Illill=,9"  THEN  1460 

1440    6070  Not  1 

1445  IF  MlUfJKO'  THEN  1475 

1450    E(ll=E(lil(l-VALIA*[34i91ll 

1455    60T0  1475 

1460     IF  AIU2:1]=V  OR  A*[12ilJ="4"  THEN  Not  1 

1465  E<l>»E(lil(l-VAUA«t34;9])-VAL(A»[«j9J)J 

1470  IF  EdKO  THEN  Not  1 

1475    E(I)=FNC1(E(1),A»)~ 

1480    60SUB  Test 

1485     IF  Test=0  THEN  Not  1 

1490    GOTO  Parent 

1495  Not  1:  IF  Flag=0  THEN 

1500  "  IF  »=■  •  THEN  M="0" 

1505  CALL  LibinfXsecjm.Decjm.FissMII.K*, Usee, Dec, Fiss) 

1510  IF  F2*tJ-l;l]=M"  THEN 

1515  F2«[J-ljU="0" 

1520  ELSE 

1525  F2HJ-1;1)='I" 

1530  END  IF 

1535  60T0  Loop 

1540  END  IF 

1545      IF  F2»EJ-1; 1J="1*  THEN  As=As+I 

1550      GOTO  Loop 

1555  Ec:  IF  D«(21I7;11="1"  THEN  Not  2 

1560  IF  ZH>99  THEN  Not  2 

1565  IF  F2HMjll=,0"  THEN 

1570      F2HJ-1:1]«T 

1575      GOTO  1590 

1580      END  IF 

1585  F2*[J-lsl]=,0" 

1590  I*(I)=FNSt»IZ*l,A,F2*[J-ljl]l 

1595  K«=I$II)t2;l] 

1600  K=0 

1605  Flao=0 

1610  K=K+1 

1615  IF  K=Dec+l  THEN  Not  1 

1620  IF  Det«(KI[2:lM»  THEN  FIaq=l 

1625  IF  I$II)[2,7]<>Dec*(KI[2,7]  THEN  1610 

1630  A«=0ec«(K> 

1635  IF  A*C10;1]="6"  THEN  Not  2 

1640  £(!>=L06(2)/VAL(A«[24:9]F 

1645  IF  A»tll;U=-2"  THEN  1665 

1650  IF  A*Uljl]="9"  THEN  1680 

1655  IF  A$U2;I1=,2"  THEN  1695 

1660  GOTO  Not  2 

1665  IF  A*C12;1)="0-  THEN  1700 

1670  E(1I=E(1)«(1-VALIA»[34;9J1) 

1675  GOTO  1700 

1680  IF  A»[12:n<>"4"  THEN  Not  2 

1685  E(l)=E(l)tVALIAH44j9J)  " 

1690  GOTO  1700 

1695  E(ll=EIIltVALIA*[34;91) 

1700  E(1}=FNC1(E(1I,A$) 

1705  GOSUB  Test 

1710  IF  Test'O  THEN  Not  2 

1715  60T0  Parent 

1720  Not  2;  IF  F2*tJ-I ; I]="l -  THEN  As=A5*i 

1725   "   60T0  Loop 

1730  Alpha:  IF  MI2K7lU«lT  THEN  Not  3 

1735      IF  Z*2>99  THEN  Not  3 

1740      IF  F2*[J-1;U="0-  THEN 

1745        F2»IJ-l;ll»-I" 

1750        GOTO  1765 
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1755        END  IF 
1760      F2*[J-I; 13="0" 

1765      I*(II»FNStl(Z*2,«M,F2$[J-liI]l 

1770      K»=I$II)[2;n 

1775      K=0 

1780      Flag=0 

1785      K=KM 

1790      IF  K=BecH  THEN  Not  1 

1795      IF  Dec*(K)C2!l]=K*  THEN  Flag=l 

1800      IF  I*(l)t2,7]ODec*(Klt2,7]  THEN  1785 

1805  A*=Dec<(K) 

1810  IF  A*tl0:ll="6"  THEN  Not  3 

1815  Ell)=L06l2l/VAL(A*[24;?ir 

1820  IF  A$[!ljl]="3"  THEN  1840 

1825  IF  ASCII; !]="?"  THEN  1855 

1830  IF  Mtl2il]*'3a  THEN  1885 

1835  GOTO  Not  3 

1840      IF  A«tl2;IJ="0'  THEN  1870 

1845      Elll=E(l)IU-VAL(Aft34:9])) 

1850      GOTO  1870 

1855      IF  A$U2;1J='2"  THEN  Not  3 

1860      IF  AitlZ;  13=-A"  THEN   " 

1865        E<l)=Ell)tll-VAL(A«[34j9])-VAL(A*[44;?l)-VAL(A«t54:9])) 

1B70        IF  EI1X0  THEN  Not  3 

1875        GOTO  1890 

1980        END  IF 

1885      E(l)=E(!ltVALIA$[34:9]l 

1890      E(1I=FNC1!E(1),AJ1 

1895      60SU8  Test 

1900      IF  Test=0  THEN  Not  3 

1905      GOTO  Parent 

1910  Not  3:   IF  F2«[J-1;1]=,1"  THEN  As=As»l 

1915       GOTO  Loop 

1920  It:  IF  D*(2)[7:!]="l-  THEN  Not  4 

1925  mi)=FNSt*(Z,A,"I-) 

1930  K$=I$(I)12jU 

1935  K=0 

1940  K=K*1 

1945  IF  K=Dec*l  THEN  Not  4 

1950  IF  I«(I)[2,7K>Dec$ft:)[2,71  THEN  1940 

1955  A$=Def.«(K) 

I960  IF  AH10;1]=V  THEN  Not  4 

1965  E(II=L06(2)/VAL(A*[24:9n 

1970  IF  MtUl»'4I  THEN  1990 

1975  IF  M(tltl}>*9*  THEN  2005 

1980  IF  Mtl2il]«M"  THEN  2035 

1985  GOTO  Not  4 

1990  IF  A«[12fl]=,0'  THEN  2040 

1995  E(1)=E(I)I(1-VAL(AH34;9]H 

2000  GOTO  2040 

2005  IF  ASC12;  11="2"  OR  MMllKS"  THEN  Not  4 

2010  IF  A»[12:l)='l"  THEN 

2015      E(ll=E(Ill(l-VALIA«[34j9]|-VAL(A«[44;91)l 

2020       IF  EI1X0  THEN  Not  4 

2025       GOTO  2040 

2030      END  IF 

2035  E(l)=E(l)»VAL(A«[34i91l 

2040  E(1)=FNC1(EI1),A«> 

2045  GOSUB  Test 

2050  IF  Test=0  THEN  Not  4 

2055  60T0  Parent 

2060  Not  4:  As=As*I 

2045   "   6070  Loop 

2070  Bo:  IF  D*  (2>  C7;  1 1="1 "  THEN  Not  5 

2075  IF  Z-1=0  THEN  Not  5 

2080  IF  F2l[J-lj|]=,0""THEH 

2035      F2«(M:1]="1" 

2090      60T0  2105 

2095      END  IF 

2100  F2$[J-1:1I=10" 
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2105  I«(I)=FNSt«(Z-l,A*l,F2«CH:l]) 

2110  M=H(l)[2jl] 

2115  K=0 

2120  Flag=0 

2125  K«*l| 

2130  IF  K=BecH  THEN  Not  1 

2135  IF  Dec»(K>[2:l]=K(  THEN  FIag=l 

2140  IF  I«<I)[2,7K>Bec«IK)[2,7]  THEN  2125 

2145  A«=0ec*(K) 

2150  IF  AH10:1)="6"  THEN  Not  5 

2155  E(1I=106(2)/VAL(A*[24:9]T 

2160  IF  A«lljl]=*8"  THEN  2180 

2165  IF  A«[I1;U="9"  THEN  2193 

2170  IF  AH12jll='8"  THEN  2210 

2175  60T0  Not  5 

2180  IF  A«[12:1J=,0"  THEN  2215 

2185  E(l)=£(l)t(l-VALIAH34;?]>) 

2190  60TB  2215 

2195  IF  MtJ2}ll<>,2"  THEN  Not  5 

2200  E(l>=E(lltVM.(A$[44:9II  " 

2205  60T0  2215 

2210  E(l)«E(l)IVAL(A«34j9]) 

2215  E(1)=FNC1(EI1),A*1 

2220  GOSUB  Test 

2225  IF  Test=0  THEN  Not  5 

2230  60TO  Parent 

2235  Not  5:  IF  F2*[J-1 ; 1 ]=" 1"  THEN  fts=fls+I 

2240   "  60T0  Loop 

2245  it:     IF  D« (21 17; I 3="0"  THEN  Not  6 

2250  IF  2-1=0  THEN  Not  6 

2255  IF  F2«tJ-l;U=,0,"THEN 

2260  F2*t  J-lr  1]="1- 

2265  60T0  2280 

2270  END  IF 

2275  F2$IJ-IslI«'0" 

2230  It(Il=FNSt»(Z-l,A,F2«[J-l:l]) 

2285  K*=I«(I>t2:l] 

2290  K=0 

2295  Flag=0 

2300  K=K+1 

2305  IF  K=0ec*l  THEN  Not  1 

2310  IF  Dec«IK)[2;l]=K«  THEN  Flagyl 

2315  IF  U(I)[2,7K>DecS(K)[2,7]  THEN  2300 

2320  Al=Dec»IK) 

2325  IF  A*[10:l)="6"  THEN  Not  6 

2330  E(l)=L06l2>/VAUA$I24;9]r 

2335  IF  A«U1;1]="6"  THEN  2355 

2340  IF  AIU!;1]='9-  THEN  2370 

2345  IF  A»(12;l]="6"  THEN  2375 

2350  GOTO  Not  6 

2355  IF  A»tl2;ll=-0-  THEN  2380 

2360  EII)*E(lH!l-VAUAH34j9]H 

2365  SOTO  2380 

2370  IF  A«[12;l]<>'2-  THEN  Not  6 

2375  E(1)=E(1)IVAUA«[34:9])  " 

2380  E(1)=FNC1IEI1),A«) 

2385  GOSUB  Test 

2390  IF  Test=0  THEN  Not  6 

2395  60T0  Parent 

2400  Not  6:  IF  F2«J-ljll="l'  THEN  As=AsM 

2405  SOTO  Loop 

2410  Ecx:   IF  M(2)t7:l]="0"  THEN  Not  7 

2415  IF  ZM>99  THEN  Not  7 

2420  IF  F2«[J-lil)=,0"  THEN 

2425  F2*[J-l:n="l" 

2430  SOTO  2445 

2435  ENB  IF 

2440  F2«[J-l:n="0' 

2445  I«m=FNSt«(Z*l,A,F2«[J-ljlI) 

2450  H=I$<I)(2jl] 
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2455  K=0 

2460  Flag=0 

2465  Mftl 

2470  IF  K=DecM  THEN  Not  1 

2475  IF  Decl(K>[2jl]=K»  THEN  Flaq=l 

2430  IF  I»II)t2,7]<>Dec*IK)[2,7I  THEN  2465 

2485  Al=Dec»<K) 

2490  IF  A«I10;1]=V  THEN  Not  7 

2495  EUI=L06(2>/VAL<A»C24:9]] 

2500  IF  A«tll;ll="7"  THEN  2515 

2505  IF  ACI12;  1 1="7"  THEN  2530 

2510  6OT0  Not  7 

2515  IF  Atm-lI^O"  THEN  2535 

2520  E(1)=E(1III1-VAL(A$[34:9J)) 

2525  SOTO  2535 

2530  E(l)=E(lllVAL(A«t34:91) 

2535  Eil)=FNCllE(l),A«) 

2540  G0SU8  Test 

2545  IF  Test=0  THEN  Not  7 

2550  60T0  Parent 

2555  Not  7:   IF  F2*[J-I j 1]="I"  THEN  As=As*I 

2560   "    60T0  Loop 

2565  N  gatia:IF  DJ(2l[7jI]=,l"  THEN  Not  8 

2570      IF  A-1=0  THEN  Not  8 

2575  IF  F2$[J-1;U='0""THEH 

2580  F2*EJ-1;1J="I- 

2585  80T0  2600 

2590  END  IF 

2595  F2*CJ-l;ll=-0- 

2600  I«(I)=FNSttlZ,A-l,F2«[J-l:lI) 

2605  K*=mi)t2;l] 

2610  K=0 

2615  Flag=0 

2620  K=KM 

2625  IF  K=Xsectl  THEN  Not  1 

2630  IF  iMcltKKZllMt  THEN  Flag=l 

2635  IF  I$(M2,7J<>Isec$(K)[2,7]  THEN  2620 

2640      A$=Xsec«IK) 

2645      FOR  K=l  TO  VALf A*[ 10: 11 ) 

2650         IF  A«K«10:ll»'l'  THEN 

2655  E(l)=VALIAJ[KtlO*7;9])lFluxtl.E-24 

2660  60T0  2680 

2665  END  IF 

2670  NEXT  K 

2675      60T0  Not  8 

2680  GOSUB  Test 

2685       IF  Test=0  THEN  Not  8 

2690  60T0  Parent 

2695  Not  8:  IF  F2»[J-1;11="P  THEN  As=Ast| 

2700  68T0  Loop 

2705  N  2n:  IF  D»(2) £7j 1 ]='l -  THEN  Not  9 

2710  IFF2HJ-l;l]="0"  THEN   * 

2715        F2*[J-lill=T 

2720        GOTO  2735 

2725        END  IF 

2730  F2»[J-l;l]="(i' 

2735  l»(I)=FNSH(Z,A*l,F2UJ-l;ll) 

2740  K*=I$U)t2:ll 

2745  K=0 

2750  Flag=0 

2755  HClj 

2760  IF  K=Xsec*l  THEN  Not  1 

2765  IF  X5ec*(KH2;H=K*  THEN  Flio-1 

2770  IF  I*(l)[2,71<>Xsec«(K)I2,71  THEN  2755 

2775  Af=Xsec«iKI 

2780  FOR  K«l  TO  VAL(A*[10:11) 

2785        IF  A«[K+I0;ll=-2'  THEN 

?™  E(l>«VAL<AHKtiot7i9])IFliixll.E-24 

2795  SOTO  2815 

2800  END  IF 
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2805  NEXT  K 

2810  GOTO  Not  9 

2815  60S0B  Test 

2820  IF  Test=0  THEN  Not  9 

2825  BOIO  Parent 

2830  Not  ?i  IF  F2»U-l;l]="l"  THEN  As=A5*l 

2835  "   GOTO  Loop 

2840  N  3n:  IF  D»I2)[7;11="1"  THEN  Not  10 

2845  "  IF  F2$CJ-1;1]='0-  THEN   " 

2850  F2$lJ-l!l]*T 

2855  60TO  2870 

2860  ENO  IF 

2865  F2»[J-ljlJ»,0" 

2870  mi)=FNSt*(Z,A*2,F2«[M:m 

2875  K«=I«IIII2:U 

2880  K=0 

2885  Flao=0 

2890  K=K+I 

2895  IF  K=Xsec+t  THEN  Not  1 

2900  IF  Xsec»<KI[2;lM«  THEN  Flag=l 

2905  IF  H(M2,7J<>X5ec»IKU2,7]  THEN  2890 

2910  A«=Xsec«(KI 

2915  FOR  K=l  TO  VALIAItlOjU) 

2920  IF  A«U0*K:l]=-7'  THEN 

2925  E(I)=VflL(fl*[10*K*7;9J)»FIuxtl.E-24 

2930  60T0  2950 

2935  END  IF 

2940  NEXT  K 

2945  GOTO  Not  10 

2950  605UB  Teit 

2955  IF  Test=0  THEN  Not  10 

2960  GOTO  Parent 

2965  Not  10:  IF  F2*t J-I ; I J="l "  THEN  As=As»l 

2970  GOTO  Loop 

2975  N  alpha:IF  D«(2K7:1I="1'  THEN  Not  11 

2980  IF  Z*2>99  THEN  Not  11 

2985  IF  F2»£J-l;Il="0"  THEN 

2990  F2*EJ-l:13='l" 

2995  GOTO  3010 

3000  END  IF 

3005  F2$(M:|]=,0" 

3010  I«(I)=FNSt*(Z+2,A»3,F2*[J-l;U> 

3015  K«M*UH2;1] 

3020  K=0 

3025  Flag=0 

3030  K»KH 

3035  IF  K=Xsec*l  THEN  Not  1 

3040  IF  Xsecf  IK) t2|IMI  THEN  Fl ag=l 

3045  IF  It(I)[2,7]<>Isec«(X)C2,7]  THEN  3030 

3050  A*=Xsec*<K) 

3055  FOR  K=l  TO  VAL (A*[ 10: 1}) 

3060  IF  A*U0*K;l]="3l  THEN 

SWS  E(l)=VAL(A«tlO»Kt7;?])IFluxll.E-24 

3070  GOTO  3090 

3075  END  IF 

30B0  NEXT  K 

3085  GOTO  Not  11 

3090  60SUB  Teit 

3095  IF  Test=0  THEN  Not  11 

3100  GOTO  Parent 

3105  Not. 11:   IF  F2$[J-l;l]='t"  THEN  As=As*l 

3110  60T0  Loop 

3115  N.p:  IF  M(2)t7lll»T  THEN  Not  12 

3120  IF  ZM>99  THEN  Not  12 

3125  IF  F2»[J-ljl]='0"  THEN 

3130  F2*[J-1:1I=-1" 

3135  GOTO  3150 

3140  END  IF 

3145  F2IIJ-1:I]=,0" 

3150  H(I)=FNSt«(ZH,A,F2HJ-l;l]> 
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3155  K<=I$mC2iI] 

3160  K=0 

3165  Flag=0 

3170  K=K+1 

3175  IF  K«Isk*I  THEN  Not  1 

3180  IF  IwclOtHJllWtl  THEN  Flaq=l 

3185  IF  U(I)t2,7K>X5ec$(KI[2,7!  THEN  3170 

3190  A«=l5ec«IK) 

3195  FOR  M  TO  VAL(A$nO:lJ) 

3200  IF  A$[10+Kjll=,V  THEN 

3205  E(!l=VAUA»[IOtKt7:9]ltFlux»l.E-24 

3210  GOTO  3230 

3215  END  IF 

3220  NEXT  K 

3225  GOTO  Not  12 

3230  GOSUB  Test 

3235  IF  Test=0  THEN  Not  12 

3240  60T0  Parent 

3245  Not  12:  IF  F2*[J-lil]="l*  THEN  As=Astl 

3250   ~  GOTO  Loop 

3255  N  gx:  IF  D»(21t7:l]='0"  THEN  Not  13 

3260  ~   IF  0-1=0  THEN  Not  13 

3265  IF  F2«[J-l;n='0'"THEN 

3270  RMJ-tlll'M' 

3275  GOTO  3290 

32B0  END  IF 

3285  F2»U-1:1]=,0" 

3290  I*(I)=FN8t*IZ,A-l,F2*[J-l:ni 

3295  K$=I«(I)[2:U 

3300  K=0 

3305  Flaq=0 

3310  K«K»1 

3315  IF  K=XsecH  THEN  Not  1 

3320  IF  XSec»(KI[2jlM»  THEN  Flag=l 

3325  IF  I$IM2,7]<>Ism«IK)[2,7J  THEN  3310 

3330  A«=Xsec*(K) 

3335  FOR  (■!  TO  VAL ( AS C 10; 1 J ) 

3340  IF  A*tl0+K;13-"5-  THEN 

3345  E(l>=VALIA»(K»10*7:9])IFluxtl.E-24 

3350  GOTO  3370 

3355  END  IF 

3360  NEXT  K 

3365  GOTO  Not  13 

3370  GOSUB  Teit 

3375  IF  Test=0  THEN  Not  13 

3380  GOTO  Parent 

3385  Not  13:  IF  F2*I J-I ; I 1=- 1"  THEN  As=Astl 

3390  60T0  Loon 

3395  N  2nx:  IF  D«(2)[7jl]="0"  THEN  Not  14 

3400  "  IF  F2KJ-1;1J="0"  THEN   " 

3405  F2«fJ-l:l]='l" 

3410  GOTO  3430 

3415  END  IF 

3420  F2*rj-I;l]='0" 

3425  I«(I)=FNSt»IZ,A+l,F2»CJ-l:U) 

3430  K»=I*I1>[2:1] 

3435  K=0 

3440  Flag-0 

3445  K=KH 

3450  IF  K=Isec*l  THEN  Not  14 

3455  IF  Xse:«(KH2;l]=K»  THEN  Flag=l 

3460  IF  mi)[2,7J<>Xsec»<KltZ,7]  THEN  3445 

3465  fl»=Xsect(K) 

3470  FOR  KM  TO  VAL<A*C 10: 1  J) 

3475  IF  A$[IO*K;l]=V  THEN 

3480  E(l)=Y*L(M!KM*7;9])IFliixll.E-24 

3485  60T0  3505 

3490  END  IF 

3495  NEXT  C 

3500  60T0  Not  14 
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3505  G05UB  Test 

3510  IF  Test=0  THEN  Not  14 

3515  GOTO  Parent 

3520  Not  14:  IF  flaq=0  THEN 

3525   "  IF  *«=■  '  THEN  M-'O1 

3530  CALL  Libiit(Xsec*(f ) ,Dect(l),K*, Xsec,Dec> 

3535  6OT0  3435 

3540  END  IF 

3545  IF  F2$[J-1;1I="0"  THEN  Loop 

3550  W-l 

3555  IF  J=l  THEN 

3540  1=1-1 

3545  BEEP 

3570  60T0  980 

3575  END  IF 

3580  Z=VALID«I3)[2,31) 

3585  A=VAL(D«13)C4,4]) 

3590  F2l=FZHl,J-n 

3595  As=NUn(Fl«CJ-l:ll) 

3400  IF  F2*[J-1;11=11'  THEN  As=AsM 

3405  FOR  K=2  TO  J 

3410  E(K)=E(K*1> 

3415  0(K)=0(K*L) 

3420  D*IK)=0*(K»1) 

3425  X$(K>«X»IKM) 

3430  NEXT  K 

3435  IF  J=2  THEN 

3440  Fl»=" 

3445  60T0  Loop 

3450  END  IF 

3455  FU=F1$U,J-2I 

3440  GOTO  Loop 

3445  Test:  FOR  K=2  TO  J 

3470  IF  U(I)[2,7]=M(K)[2,7]  THEN  No 

3475  NEXT  K 

3480  K.=0 

3485  K=KM 

3490  IF  K=DecH  THEN  Not  dec 

3495  IF  miU2,7K>Dec$rK)t2,7]  THEN  3485 

3700  A$=Dec«(K> 

3705  IF  A$[I0;U='4-  THEN  Not  dec 

3710  0m=L0G(2)/VAL(A$t24;9]f 

3715  Qll>=FNCliO(l),A«) 

3720  Dtll)*A< 

3725  60T0  Xsec2 

3730  Not  dec:0(ll=0 

3735  M(II«"  'IHUHZ,?]*"  4" 

3740  Isec2:  K=0 

3745  K=K*1 

3750  IF  K=Xsec*l  THEN  Not  usee 

3755  IF  XiK»(KK2,7K>Ml)[2,7]  THEN  3745 

3740  A*=Xsec«(K) 

3745  FOR  K=l  TO  VflLlMtlOlUI 

3770  0ll)»0<ll*VAL(A«tl0IK*7;?])»FluKll.E-24 

3775  NEXT  K 

3780  60T0  Calculate 

3785  Not  xsec:  X«(1)="0" 

3790  Calculate:  X=1/VALII*(I)I4.4]I 

3795  CALL  Const  ■U,l(t),0(!),Til,!,M) 

3800  IF  Ait>l.E-14  THEN  Yes 

3805  IF  Ptype>2  THEN  No 

3810  IF  K«=[l-  OR  K«=-7-  OR  KJ-'S"  OR  («•■?■  THEN  No 

3815  K=0 

3820  K=K*1 

3825  IF  K'FissM  THEN  No 

3830  IF  Fi»J»(W2,7]<>II<M2,?J  THEN  3820 

3835  A$=Fiss*(K) 

3840  Prod=FIuxtWILfA«[19;S])»4.471E-25 

3845  CALL  Const  p(J,EU),0(«l,Tii,Prod,Ait) 

3850  IF  Att>l.E-l4  THEN  Yes 
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3855  No:  Test-0 

3860  RETURN 

3865  'fes:   F]agq=l 

3870  FOR  bl   TO  1-1 

3875  IF  I«II)[2,7]=I«(KH2,7]  THEN 

38B0  IF  Hetgnt(K)>=A«t  THEN  Flagg=0 

3885  IF  Flagg'l  THEN  Height(K)=Ait 

3890  K=I-1 

3895  END  IF 

3900  NEXT  K 

3905  IF  Flago=0  THEN  No 

3910  Height  tlHAit 

3915  Tesf=l 

3920  Fl*=Fl«CHR$(As) 

3925  F2«=f2*fc"l" 

3930  STATUS  1.1,-X 

3935  IF  X=l?  THEN 

3940  C1=C1*9 

3945  CONTROL  1.1:C2 

3950  IF  Cl>70  THEN 

3955  BOSUB  CI  screen 

3960  Cl=l 

3965  CM 

3970  END  IF 

3975  END  IF 

3980  CONTROL  I,0:C1 

3985  PRINT  I*(I) 

3990  Z«VALII»(IIC2,3]I 

3995  A=VAL(I.(IU4,6]) 

4000  FOR  K»l  TO  I-I 

4005  IF  I»1K)[2,7]»I«(W2,7]  THEN 

4010  1=1-1 

4015  K=I 

4020  END  IF 

4025  NEXT  K 

4030  RETURN 

4035  Out:   MASS  STORAGE  IS  ":HP8290I , 700, I" 

4040  LM 

4045  FOR  J=2  TO  I 

4050  IF  I«IJ)U;l]=-f  THEN 

4055  FOR  K=L  TO  J-l 

4060  IF  I$(K)t2,7]=I«(0)I2,7I  THEN 

4065  IF  K=L  THEN  4085 

4070  FOR  H=K-1  TO  L  STEP  -1 

<WS  I$l«tl)=I$(N) 

4080  NEXT  N 

4085  L«Lt| 

4095  END  IF 

4100  NEXT  K 

4105  END  IF 

4110  NEXT  J 

4115  F1*=TS01" 

4120  60SUB  CI  screen 

4125  CONTROL  1,1:5 

V.I  ?Z  TOMBy?.1"  NEH IS0T0PE  F,LE-  THE  DEFSULT- 

4140  INPUT  Fl* 

4145  F1=((I-L*1II10+LEN(VAL.(I-L*1) 1*31/256 

4150  FI=iNTIFI)*l 

4155  BOSUB  Clscreen 

4160  ON  ERROR  GOTO  Err3 

4165  CREATE  ASCII  FM.FI 

4170  OFF  ERROR 

4175  ASSIGN  ?Iso  TO  Fl$ 

4180  OUTPUT  eIso:VALflI-L*l) 

4185  FOR  J=L  TO  I 

4190  OUTPUT  UsoidUl 

4195  NEXT  J 

4200  ASSIGN  SIso  TO  Fll 
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4205      GOTO  Endfl 

4210  Err3:  X=ERRM 

4215  IF  X<>54  THEN  4230 

i™  FI*CLEN(F1*);1]=CHR«(NUN<FI«[LEN(F1*);13)+1) 

4225  60TD  4165 

4230  IF  X<>55  AND  IOM  THEN  4255 

«?i3n5     SiS  "THIS  DISK  IS  fvu-     TRV  fl  DIFFERENT  ON  AND  PRESS  (CONTI" 
4240      BEEP 

4245     PAUSE 

4250     GOTO  4165 

4260  BEEP  '"*  ERR0R  m   BEEN  ENC0UNTERED  "HILE  TRYING  I0  CREATf-  F!LE:-jFl« 

4265  STOP 

4270  CIscreen:  OUTPUT  2  USING  "#,B";255,75 

4275  RETURN 

4280  Endfl:  ENTER  *lso;A« 

4285  N=VAL(A») 

4290  Endfl2:60SUB  Clscreen 

4295  BASS  STORAGE  IS  ":HP8290t, 700,0" 

4300  SUBEND 

4305  |_U8  Const.  n(N,E(l>, OKI, T,X,AI 

4315  X1=X 

4320  IF  N=l  THEN  4340 

4325  FOR  1=1  TO  N-l 

4330  X1=X1*E(I) 

4335  NEXT  I 

4340  FOR  1=1  TO  N 

4345  Ot=0(I))T 

4350  IF  OtMOO  THEN 

4355  X1=X1/0(II 

4360  GOTO  4480 

4365  END  IF 

4370  P=l 

4375  Hp=0 

4380  FOR  J=l  TO  N 

4385  IF  J=I  THEN  4430 

4390  IF  OUUT.MOO  THEN  4430 

4395  IF  0(J)=0<I)  THEN 

4450  IF  J<I  THEN  4480 

4405  Hp=Np+l 

MW  IF  «P=1  THEN  I1=J 

4415  GOTO  4430 

4420  END  IF 

4425  P=PI(0(J)-0(I)| 

4430  NEXT  J 

4435  IF  Hp=l  THEN 

4440  S1=0 

4445  FOR  J=l  TO  N 

J™  'F  W  0"  J=H  THEN  4460 

*"5  S1=S1*1/(0(J)-0(I1) 

4460  NEXT  J 

4465  IF  Mp=l  THEN  P=P/IT-S1) 

4470  END  IF 

4475  S=S»EXP(-Ot)/P 

4480  NEXT  I 

4485  A=SIX1 

4490  SUBEND 

4500  ^Ct",5t-|,IN'EI"'IJ(,l>T'P'fl) 

4505  Pl=l 

4510  IF  N=l  THEN  4530 

4515  FOR  1=1  TO  N-l 

4520    P1=P1IE(I) 

4525  NEXT  I 

4530  FOR  1=1  TO  N 

4535    Ot=0(I)tT 

4540     IF  OtMOO  THEN 

4545      P1=P1/0(I) 

4550      GOTO  4775 
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4555 

END  IF 

4560 

Pr=l 

4565 

Np=0 

FOR  J=l  TO  N 

1570 

4575 

IF  J=I  THEN  4420 

4580 

IF  OIJHTMOO  THEN  4420 

4585 

IF  0(JI=0(I>  THEN 

4590 

IF  J(I  THEN  4775 

4595 

1 1=J 

4600 

<605 

60T0  4620 

4410 

END  IF 

4615 

Pr=Prt(0(J)-0(D) 

4620 

NEXT  J 

4425 

IF  Np=l  THEN 

4630 

31=1/0(1) 

4635 

FOR  J=I  TO  N 

4640 

IF  J=I  OR  Ml  THEN  4450 

4645 

S1=S1-1/(0(J)-0(D) 

4650 

NEXT  J 

4655 

END  IF 

4460 

IF  0t>=.2  THEN 

4465 

IF  Hp=l  THEN 

46") 

R=R-EXP(-Ot)/(0(I)IPr) 

4675 

Pr=Pr/Sl 

4680 

END  IF 

4635 

B=fi*U-EIP(-Ot))/(OttPr) 

4690 

SOTO  4775 

1695 

END  IF 

4700 

IF  Ot=0  THEN 

4705 

R=R+T/Pr 

4710 

80T0  4775 

4715 

END  IF 

4720 

H=l 

1725 

S=0 

4730 

FOR  J=0  TO  11 

4735 

lt=HI(JM) 

4740 

S»S+l-Ot)"J/H 

4745 

NEXT  1 

4750 

IF  Hp=l  THEN 

4755 

R=R-EXPI-0t)/(0(IIIPrl 

4760 

Pr=Pr/Sl 

4765 

END  IF 

4770 

R=S/Pr»R 

4775 

NEXT  I 

4780 

IF  R=0  THEN  R=l/T 

4785 

A=RIP1IT»P 

4790 

SUBEND 

4795 

DEF  FNCHA.AJI 

4800 

CI=VAL(A*tlO:lI) 

4805 

IF  C1>1  THEN  A=A/40 

4810 

IF  Cl>2  THEN  A=A/40 

4815 

IF  Cl>3  THEN  A=A/24 

4820 

IF  Cl>4  THEN  A=A/365.25 

4825 

IF  CI>4  THEN  A=A/1.E*3'(C1-4I 

4830 

RETURN  A 

4835  FNEND 

4840  DEF  FNSt*(Z,A,F«) 

4845 

Z«=VAU(Z> 

4850 

IF  LENII*)=1  THEN  Z«="  "Ml 

4855 

A*=VAL«(AI 

4860 

IF  UN(A*K3  THEN 

4845 

AI=,0"iA« 

4870 

60TO  4860 

4875 

END  IF 

48B0 

1«="  'UtUttFI 

4885 

RETURN  I« 

4890  FNEND 

4895  SU8  libin(:<sec*m,Dec*(!),Fiss«(l),K»Js,Dec.Fi! 

ISl 

4900 

ASSI6N  SPath  TO  'DECAY  LIB"IK$ 
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4905    Din  mm 

4910  ENTER  WathsAI 

4715   ON  END  JPatfi  SOTO  End  dec 

4920  Dec=Dec+l 

4925  Dec«(Decl=A* 

4930  SOTO  4910 

4935  End  dec:   ASSIGN  JPath  TO  "KSEC  LIB'iK* 

4940   "  ENTER  ?Path:A* 

4945  ON  END  JPath  SOTO  End  xaec 

4950  Xs=Xs+I 

4955  <sec«[l(sl=A« 

4960  SOTO  4940 

4965  End  xsec:  IF  tt»'r  OR  K*="7"  OR  KS="8"  OR  K»="9"  THEN  5000 

4970  "     ASSIGN  SPath  TO  "FISS  LIB'iK* 

4975  ENTER  »Path;A$ 

49S0  ON  END  8Path  SOTO  End  Has 

4985  Fiss=Fi55H 

4990  Fi55*(Fi55)=A* 

4995  GOTO  4975 

5000  End  fiss:  ASSI6N  SPath  TO  I 

5005  "    SUBEND 

5010  SUB  AstringlA,A*> 

5015  E=0 

5020  C$="000000" 

5025  IF  ABSIAK. 00001  THEN  5080 

5030  IF  A<10  THEN  5050 

5035  A=A/10 

5040  E'E+1 

5045  6OT0  5030 

5050  IF  A>=1  THEN  5070 

5055  (WWW 

5060  E=E-1 

5065  60T0  5050 

5070  A=A*. 00005 

5075  IF  A>=10  THEN  5030 

50B0  A*=VALJ(A> 

5085  IF  LEN(A»>>6  THEN  A«=A»[1,41 

5090  IF  LENIAIK6  THEN  A*=AUCSC1,6-LEN(A*>] 

5095  A*[2;U=V 

5100  IF  E>=0  THEN  A*=A»4"E*" 

5105  IF  E<0  THEN 

5110  A«=AU"E-" 

5115  E=-E 

5120  END  IF 

5125  UPVALUE) 

5130  IF  L£N(T»»=1  THEN  A$=A«"0"4TS 

5135  IF  LEN(T*)=2  THEN  A«=A«iT« 

5140  SUBEND 

5145  SUB  l5in<eiso,N,ISm,Act*{t}) 

5150  FOR  1=1  TO  N 

5155  ENTER  HsuKIIl 

5160  NEXT  I 

5165  MASS  STORAGE  IS  ":HP8290I, 700,0" 

5170  ASSIGN  flao  TO  "ACT" 

5175  FOR  1=1  TO  82 

5180  ENTER  fl5o;Actt(I) 

5185  NEJT  I 

5190  ASSISN  ?Iso  TO  t 

5195  SUBEND 

5200  SUB  Ininfm»),AKI).Act«(t),Aact(l),NI 

5205  DIN  A«[1001,T«(1306)II9] 

5210  DISP  "DO  YOU  HISH  TO  INPUT  A  NEN  ISOTOPE  INVENTORY  OR  USE  A  STORED  ONE" 

5215  ON  KEY  5  LABEL  "NEK"  GOTO  Ne« 

5220  ON  KEY  6  LABEL  "STORED"  GOTO  Stored 

5225  GOTO  5225 

5230  Stored:OFF  KEY 

5235  MASS  STORAGE  IS  \HP82901, 700,1" 

5240  INPUT  "ENTER  THE  NAME  OF  THE  FILE  THESE  DATA  ARE  STORED  IN",F1» 

5250  CONTROL  1,1)5 
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5255  ON  ERROR  SOTO  Err 

5260  ASSIGN  flnin  TO  Fl$ 

5265  ON  ERROR  60T0  Errl 

5270  ENTER  eInin;A« 

5275  OFF  ERROR 

52S0  ON  END  einin  60T0  End  in 

5285  IF  LEN(A*K>18  THEN  Errl 

5290  FOR  1=1  TO  N 

5295  IF  A«[2,7]=I«(I)I2,7]  THEN 

5300  ON  ERROR  60T0  Errl 

5305  A1(I)=VAL(A»(9:10]) 

5310  OFF  ERROR 

5315  I=N 

5320  END  IF 

5325  NEXT  I 

5330  IF  A«t2:l]="8"  OR  A»I2:I]="9"  THEN 

5335  FOR  1=1  TO  82 

5340  IF  A«[2,7)=Actl(I)[2,7]  THEN 

5345  ON  ERROR  SOTO  Errl 

5350  •  Aact(I)=VAL!AH9:10]) 

5355  OFF  ERROR 

5360  1=82 

5365  END  IF 

5370  NEIT  I 

5375  END  IF 

5380  60T0  5265 

5385  Err:DISP  "F ILE: " ;F1*; -  DOSEN'T  EXIST.  PLEASE  CHOOSE  ANOTHER  FILE.  PRESS  (CONTP 

5390  BEEP 

5395  PAUSE 

5400  60T0  Stored 

5405  Errl:  DISP  "FILEs'iFl*;"  IS  NOT  FORMATTED  CORRECTLY.  CHOOSE  ANOTHER.  PRESS  (CONT)' 

5410  BEEP 

5415  PAUSE 

5420  SOTO  Stored 

5425  End  in:  60SUB  Clscreen 

5430   "   ASSIGN  elnin  TO  I 

5435  GOTO  Finis 

5440  New:  OFF  KEY 

5445  GOSUB  Clscreen 

5450  CONTROL  1,1:5 

5455  PRINT  'INPUT  THE  ISOTOPE  INVENTORIES1 

5460  PRINT 

5465  PRINT  TO  LEAVE  THIS  INPUT  NODE  PRESS  (ENTER)  WHEN  ASKED  FOR' 

5470  PRINT  -ATOMIC  NUMBER' 

5475  PRINT 

5480  PRINT  'TO  INIDICATE  THAT  THE  NATUARLLY  OCCURINS  ELEMENT  IS- 

5485  PRINT  "BEING  INPUT  RATHER  THAN  A  SPECIFIC  ISOTOPE,  PRESS" 

5490  PRINT  '(ENTER)  WHEN  ASKED  FOR  ATOMIC  HEI6HT" 

5495  PRINT 

5500  1=0 

5505  C$='000000" 

5510  MASS  STORAGE  IS  ':HP82901, 700,0' 

5515  2=0 

5520  INPUT  'ENTER  THE  ATOMIC  NUMBER', 2 

5525  IF  2=0  THEN  Out 

5530  IF  2(1  OR  2>99  THEN 

5535  BEEP 

5540  60T0  5515 

5545  END  IF 

5550  A=0 

5555  INPUT  'ENTER  THE  flTOMIC  HEIGHT-, A 

5560  IF  A<0  OR  A>300  THEN 

5565  BEEP 

5570  60TO  5555 

5575  END  IF 

5580  IF  A=0  THEN  Excited 

5585  DISP  "IS  THIS  ISOTOPE  IN  THE  6R0UND  OR  EXCITED  STATE' 

5590  ON  KEY  5  LABEL  'GROUND"  GOTO  Ground 

5595  ON  KEY  6  LABEL  "EXCITED"  GOTO  Excited 

5600  GOTO  5600 
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5405  Sround:K»="0' 

5610  GOTO  5620 

5615  E!cited:KI="l" 

5620  OFF  KEY 

5625  INPUT  'ENTER  THE  ISOTOPE/ELENENT  INVENTORY  IN  GRABS1, Inv 

5630  IF  lnv<0  THEN 

5635  BEEP 

5640  GOTO  5625 

5645  END  IF 

5650  IF  A=0  THEN  Nat 

5655  MM 

5660  CALL  Astrinodnv.BJ) 

5665  T»(I)»FNSt$(Z,A,KM"  'SB* 

5670  PRINT  T«(I) 

5675  GOTO  5515 

5630  Nat:  InvMnv 

5685  ASSIGN  flnin  TO  'NAT  ABUND' 

5690  ENTER  SlninjA* 

5695  ON  END  Stdin  GOTO  End  nat 

5700  IF  VAL(A»[2,3I)>Z  THEN  End  nat 

5705  IF  VAL<AU2,3])=Z  THEN 

5710  Inv=VAL(AI[10;9]IIInvl/100 

5715  I»IM 

5720  CALL  AstrinqlInv,B«l 

5725  T*lI)=A«[l,8]iB« 

5730  PRINT  T*(II 

5735  END  IF 

5740  GOTO  5690 

5745  End  nat:  IF  1 1  =  1  THEN 

5750  PRINT  Zl"  NOT  NATUARALLY  0CCURIN6" 

5755  BEEP 

5760  END  IF 

5765  60 TO  5515 

5770  Out:  GOSUB  Clscreen 

5775  DISP  'DO  YOU  WISH  TO  SAVE  THIS  INVENTORY  VECTOR" 

5780  ON  KEY  5  LABEL  'YES-  60T0  Yes 

5785  ON  KEY  6  LABEL  'NO"  GOTO  No 

5790  GOTO  5790 

5795  Yes:  OFF  KEY 

5800  F1«»"INV1* 

5805  CONTROL  1.1:5 

5810  PRINT  'INPUT  THE  NAIfE  OF  THE  NEK  ISOTOPE  INVENTORY  FILE." 

5815  PRINT  'THE  DEFAULT  KILL  BE  ":F1« 

5820  INPUT  Fit 

5825  HfiSS  STORAGE  IS  ":HP82901, 700,1" 

5830  FMNTIH22/256M 

5835  ON  ERROR  60TD  Err3 

5840  CREATE  ASCII  FII.FI 

5845  OFF  ERROR 

5850  DISP 

5855  ASSIGN  JInin  TO  FH 

5860  FOR  J=l  TO  I 

5865  OUTPUT  HniniMIJ) 

5870  NEXT  J 

5875  ASSIGN  einin  TO  I 

5880  No:  OFF  KEY 

5885  DISP 

5890  FOR  J=l  TO  I 

5895  FOR  K=I  TO  N 

5900  IF  T«IJ>[2,7]=I«(K>[2,7J  THEN 

5905  AI(KI=VAL(T*IJ)[9jlO]| 

5910  K=N 

5915  END  IF 

5920  NEXT  K 

5925  IF  T*(JH2il]="8"  OR  T*(JK2:1]='9'  THEN 

5930  FOR  K«l  TO  B2 

5935  IF  T»(J>C2,7]=tat«IK)[2.7]  THEN 

5940  Aact(Kl=VAL(T»IJII9slO]) 

5945  K=82 

5950  END  IF 
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5955  NEXT  K 

5960  END  IF 

5965  NEXT  J 

5970  SOTO  Finis 

5975  Err3:  X=ERRN 

5980  IF  X<>54  THEN  5995 

5985  FlSlLENIFltlilMHRSlNUHIFltUENlFUl;  111*1) 

5990  60T0  5840 

5995  IF  X<>55  AND  X<>64  THEN  6020 

6000  DI5P  "THIS  DISK  IS  FULL.  TRY  A  DIFFERENT  ONE  AND  PRESS  (CONT) " 

6005  BEEP 

6010  PAUSE 

6015  SOTO  5840 

6020  DISP  "AN  ERROR  HAS  OCCURED  WHILE  TRYING  TO  CREATE  F1LE:";F1« 

6025  BEEP 

60-30  STOP 

6035  Clscreen:OUTPUT  2  USIN6  "*.B";255,75 

6040  RETURN 

6045  Finis:DISP 

6050  60SUB  Clscreen 

6055  SU8END 

6060  SUB  Typout(Typout,Fout*) 

6065  Typout-1 

6070  DISP  "00  YOU  DISH  TO  SAVE  THE  FINAL  OUTPUT  VECTOR* 

6075  ON  KEY  5  LABEL  "YES"  60T0  Ye5 

6080  ON  KEY  6  LABEL  'NO'  SOTO  No 

6085  60T0  6085 

6090  NorOFF  KEY 

6095  Fout»="NONE" 

6100  GOTO  Endfl 

6105  Yes:OFF  KEY 

6110  Fout«="OUTl" 

6115  CONTROL  1,1:5 

6120  PRINT  'INPUT  THE  NAHE  OF  THE  OUTPUT  FILE" 

.6125  PRINT  'DEFAULT  IS  ":Fout* 

6130  INPUT  Fout* 

6135  Endfl .-SUBEND 

6140  SUB  Fn 

6145  GGSUB  Clscreen 

6150  GINI7 

6155  GRAPHICS  ON 

6160  CLIP  20,120,10,110 

6165  FRANE 

6170  AXES  10,10,20,10 

6175  CLIP  0,140,0,120 

6180  LORG  4 

6185  CSI2E  4 

6190  FOR  1=0  TO  100  STEP  10 

6195  HOVE  1*20,5 

6200  LABEL  I 

6205  NEXT  I 

6210  MOVE  70,0 

6215  LABEL  '  ATONIC  NUNBER" 

6220  LORE  8 

6225  FOR  I=-3  TO  5 

6230  HOVE  20,1110*40 

6235  LABEL  ME": I 

6240  NEXT  I 

6245  HOVE  0,50 

6250  DES 

6255  LORG  6 

6260  LDIR  90 

6265  LABEL  "ABUNDANCE  (GRAHS)" 

6270  LDIR  0 

6275  60T0  6290 

6280  Clscreen:  OUTPUT  2  USING  "l,B';255,75 

6285  RETURN 

6290  SUBEND 

6295  SUB  Out(I»m,AI!).Act«(tl,Aactm,Typ,N,Page) 

6300  COM  T,Fltix,Pow,Rt, Thresh 
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6305  tin  Bb(99).Naie»(99X2] 

6310  HASS  STORAGE  IS  ,:HP82901, 700,0" 

6315  ASSIGN  BPatb  TO  "NAMES" 

6320  FOR  1=1  TO  99 

6325  Bb(!)=0 

6350  ENTER  ePath;Naie«(I> 

6335  NEXT  I 

6340  ASSIGN  gPath  TO  I 

6345  FOR  1=1  TO  N 

6350  Flag=l 

6355  IF  I«(IH2;1K>"8"  ANO  I«(I)(2ilK>"9"  THEN  6395 

6360  FOR  M  TO  82 

6365  IF  l*(Il[2,71=Act»(J)[2,7]  THEN 

6370  Flag=0 

6375  J=82 

6380  END  IF 

6385  NEXT  J 

6390  IF  Flag=0  THEN  Endl 

6395  K=VAUI*(I)[2,3JI 

6400  Bb(K)=Bb(KI*A(I) 

6405  EndhNEXT  1 

6410  FOR  1=1  TO  82 

6415  K=VAL(Act*(I)[2,3I> 

6420  Bb(KI=8blK)«AactU> 

6425  NEXT  I 

6430  Et=(TIMEDflTE  HOD  86400) -Rt 

6435  CALL  Sraph(Bbm,T,FIus,Po»,Et) 

6440  IF  Typ=0  THEN  6565 

6445  CALL  HeadU, Flux, Pox, Page) 

6450  No=0 

6455  L=10 

6460  FOR  1=1  TO  N 

6465  IF  I«(I)IljlJ="t"  AND  A(II>=Thresh  THEN 

6470  El*=Na«e*<VALII*m[2,3]))s'-"U«(I>[4,6] 

6475  IF  I*(I)C7;13="1"  THEN  ElMElttT 

6480  No=NoM 

6485  IF  No=4  THEN 

6490  L=L*1 

6495  OUTPUT  701 

6500  IF  L=66  THEN 

6505  Page=Page*I 

6510  CALL  HeadlT, Flux, Pom, Page) 

6515  L=10 

6520  END  IF 

6525  No=l 

6530  END  IF 

6535  OUTPUT  701  USING  6540;E1«,AU) 

6540  IMAGE  l,9A,Z.DDDDDDDE,4X 

6545  END  IF 

6550  NEXT  I 

6555  Page=Page*l 

6560  OUTPUT  701 

6565  SUBEND 

6570  SUB  6raph(Bb(t),T,Flux,Poii,EU 

6575  FOR  1=1  TO  99 

6580  HOVE  1*20,110 

6585  PEN  -I 

6590  DRAW  X20.10 

6595  PEN  I 

6600  IF  Bb(IK=l.E-3  THEN  6610 

6605  DRAM  I»20,L8T(Bb(I))llO*40 

6610  NEXT  I 

6615  CONTROL  1,1;2 

6620  PRINT  US1N6  6640:Et 

6625  PRINT  USING  6645;  T 

6630  PRINT  USIN6  6650|Po« 

6635  PRINT  US1N6  6655;Flux 

6640  INA6E  25X, "ELAPSED  TIME   \D.DDDE,"  S" 

6645  IMAGE  25X, "SIMULATED  TIME  \D.DDDE,"  S" 

6650  1MA6E  25X, "POKER       ",D.DDDE,"  MN/UNIT" 
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6455    IMA6E  251, "NEUTRON  FLUX   ".D.DBDE,"  f/CHICHIS' 
6640    CLIP  20,120.10, 110 

6465    FRAME 

6670    AXES  10,10,20,10 

6675    CLIP  0,140.0,120 

6680    SUBEND 

6685  SUB  HeadIT, Flux, Pox, Page) 

6690  OUTPUT  701;CHR»(12> 

66'5  U«="S" 

6700  Ti»=T 

6705  IF  Tii<60  THEN  4765 

6710  U$='N" 

6715  Tii'Tii/60 

6720  IF  Ti«60  THEN  6765 

6725  U«="H" 

6730  TitMii/60 

6735  IF  Tii<24  THEN  6765 

6740  UJ'X 

6745  Tii=Tii/24 

6750  IF  Tii<364  THEN  6765 

6755  U«='V" 

6760  Tii=Tu/365.25 

6'45  OUTPUT  701  USIN6  6770;TH.U*,Page 

6770  IHA6E  -SIMULATED  TItlE  •  ",D.i)DDDE,X,A,42X,"PA6E  \DDDD 

6775  OUTPUT  701  USIN6  6780:Flux,Po» 

6780  IHA6E  'NEUTRON  FLUX   •  ",D.DDDD£,"  (»/CH"2IS)-,14X,"P0NER  =  VD.DDBDE,"  INN/UNIT}' 

6785  OUTPUT  701 

6790  OUTPUT  701  USING  6795 

6795  IMAGE  "ISOTOPE   NA5SI6RAHS)    ISOTOPE   MASS(GRAHS)    ISOTOPE   MASS (GRAMS) ' 

6800  OUTPUT  701 

6805  SUBEND 

6810  SUB  AbundUI(I),A(l),B(I),Act*<l),Aactll),Bactm,ePoiier,Ptype,Eflag,N,P<) 

6815  COM  Iteip,Flux,Pi»er,Rt, Thresh 

6820  T=Ttenp 

6825  DIM  Xsecl(161)t751,Decf (575)1621, Ft5S»<48BK53],Nact(5),A«[50],Mact 15) 

4830  K2«="X' 

6835  K1»="N" 

6840  ENTER  8Poner:AS 

6845  IF  A«='END-  THEN  Set  eHag 

6850  Flux=VAL(fl*tl,10]l  " 

6855  Tstep=VAL(A*Hl;ll]| 

6860  T»=A*C23;11 

6845  IF  1*="S"  THEN  6905 

6870  Tstep=Tstept60 

6875  IF  T*="M'  THEN  6905 

6B80  Tstep=Tstepl60 

6885  IF  T«="H"  THEN  6905 

6890  Tstep=T5tepl24 

6B°5  IF  T*=-D-  THEN  6905 

6900  Tstep=Tstepl365.25 

6905  IF  Fiux=0  THEN 

6910    Pwer=0 

6915    60T0  Flux 

6920    END  IF 

4925  Pflaq=0 

6930  IF  Ptype>=2  THEN 

6935        PHaq=l 

6940         IF  Ptype-2=1  THEN  6955 

6945         END  IF 

6950  IF  Ptype=l  THEN 

6955         Po»er=Flux 

6960         SOTO  Poller 

6945         END  IF 

6970  Flux:  Ste«p=Tstep 

6975     PoHl=FNPo»er(Aact(l),Flux) 

6980     CALL  Decay(Act*(ll,Aact(»l,Bact(l),82,X5ec«(»l,Dec«lt),Fiss*(ll,X5ec.Dec,Fiss,l(l«,K2*,Ste 

•p, Flux.Nactl II, Rt. Thresh, Pf lag) 
6985     IF  Flux=0  THEN  7020 
6990     Pon2=FNPo»er(Bact(l),Flux) 
6995     IF  PFlag=I  THEN  7030 


109 


APPENDIX  A    FILE.-KSIG      PAGE  21 

7000  Test=flBS( (Pom1-Pq«2) «50/Pottl) 

7005  IF  lest<=l  THEN  7020 

7010  Steip=.8ISteip/Test 

7015  GOTO  6980 

7020  Flux2=Flux 

7025  60SUB  Nact 

7030  CALL  Decay (11(11, Alt), B(tl,N,lsec((t),Dec$lt),Fiss<(t), Usee, Dec, Fi5S,K»,K2«. Stem, Flux, N 

Ktttl.lt, Thresh, Pflag) 

7035  fteip=TteiptSteip 

7040  IF  Ttem=mstep  THEN 

7045  PoHer=Po»Z 

7050  60TO  Endfl 

7055  END  IF 

706O  CALL  Tran(A<l),Bm,N,Aact(t),8act(l)l 

7065  Po»er=Poii2 

7070  CALL  Out(l*(I).A(I),Act*(t),Aactm,0,N,OI 

7075  Steip=Wstep-Ttero 

7080  Po«l=Po»2 

7085  60TD  6980 

7090  Nact:  Nact!l)=FluxfAact(82H6.231E-23/233 

7095  Hact(i)=Flux2tBact(82)t6.231E-23/233 

7100  Nact (2)=FtuxlAact (81)14. 671E-23/235 

7105  Hact(2)=Flux2IBact(81ll4.671E-23/235 

7110  Nact(3)=FluxlAact(80)tI.004E-25/238 

7115  Nact (3)=Flux2tBact (80)11. 004E-25/238 

7120  Nact(4l=Flux«Aact(l)ll.062E-22/239 

7125  Hact(4)=Flux2tBactll)il.062E-22/239 

7130  Nact (5)=FluxtAact 179) I1.181E-22/241 

7135  Nact(5i=Flux2lBact(79)ll.l81E-22/241 

7140  FOB  K»|  TO  5 

7145  Nact(K)  =  (Nact(KHNact(K))/2 

7150  NEXT  K 

7155  RETURN 

7160  Power:  Steip=Tstep 

7165  Fluxl=FNFlux(Aactm, Power) 

7170  CALL  Deca¥iActi(l),Aact(ll,8act(»),82,X5ec«(ll,Dec*ll),Fiss«(ll,X5ec,Dec,Fiss,t:i*,K2*,St 

eip,Fluxl, Nact (»>,Rt, Thresh, Pflag) 

7175  Flux2=FNFlux(Bactll), Power) 

7180  Flux=FIuxI 

7185  Test=ABS((Fluxl-Flux2)t50/Fluxl) 

7190  IF  Test<=l  THEN  7205 

7195  3teip=.BI5teip/Test 

7200  SOTO  7170 

7205  BOSUB  Nact 

7210  FIux=(Fluxl*Flux2)/2 

7215  CALL  Decay(I$U),A(»),B(l),N,X5ec«(t),Dec«(l),Fi55»ll),Xsec,Dec,Fi55,Kl»,K2*,S(eip,Flux, 

Nactdl.Rt, Thresh, Pflag) 

7220  fteip=Tteip*Ste«p 

7225  IF  Tteap=TtTstep  THEN 

7230  FIux=Flux2 

7235  SOTO  Endfl 

7240  END  IF 

7245  Stem*mstep-Tte«p 

7250  CALL  Tran(A(l),Bm,N,Aactll),Bact(l)) 

7255  Flux=Flux2 

7260  CALL  Out(U(il,A(I),Act«(»),Aact(t),0,N,0) 

7265  GOTO  7165 

7270  Set  eflag:ASSI6N  e?ower  TO  I 

7275  ~          Eflag=l 

7280  SOTO  Endfl 

7285  EndfhSUBENO 

7290  DEF  FNPo»er(Alt),Flux) 

7295  Power=A(B2)t62,31»FNEpf (92, 2331/233 

7300  PwtfPtmw+Alfl]]  (46. 71  tFNEpf  (92, 2351  /235 

7305  Power=Power*A(80) I. 1004IFNEpf (92,2381/238 

7310  Power=Power*All)ll06.2IFNEpf(94, 2391/239 

7315  Powr=Power+fl ( 79 ) » 1 1 8. 1  «FMEp f (94,2411/241 

7320  Power=PowertFlux/1.0364927E+19 

7325  RETURN  Power 

7330  FHEND 
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7335  DEF  FNFlux (fldl.Poner ) 

7340  Flux=AI82)l42.31tFNEpf (92. 2331/233 

7345  Flux=Flux*A(81lt44.71IFNEpH92,235)/235 

7350  Flui=Flux*A(80)l.l004IFNEpf(92,23B>/238 

7355  Flux=Flux*A(ll 1104. 2IFNEpf (94, 2391/239 

7340  FIux=Flux*AI79l II 18. llFNEpf 194, 2411/241 

7345  Flux=Po«er»1.0344927Etl9/Flux 

7370  RETURN  Flux 

7375  FNEND 

7330  DEF  FNEpHZ.A) 

7385  Epf=1.29?27E-3tZtZIS9R(AI*33.12 

7390  RETURN  Epf 

7395  FHEND 

7400  SUB  DecaY(I$(«l,A(ll,6(»l,N,ll5ec«Hl,Dec*ll),Fiss*(ll,l(sec,Dec,Fi55,Kl$,K2f,T,Flux,Nact(ll,Rt, 

Thresh, Pf lag) 

7405  DIN  0(50),EI50),l(«(50)[45],ll«(50)[42J,Fl$[501,Ai(501,Fra:t(50),Lo(50),Fracll50),Ap(50) 

7410  CALL  Zero(8lll,N) 

7415  PEN  0 

7420  LORG  5 

7425  CSIZE  5 

7430  FOR  1=1  TO  N 

7435  HOVE  VAUIMM2, 311*20, 10 

7440  LABEL  "I" 

7445  Et=ITINEDATE  NOD  844001-Rt 

7450  CONTROL  1,1 ;2 

7455  PRINT  USING  7440:Et 

7440  INAGE  2511, 'ELAPSED  TINE   ",D.DDDE,"  S" 

7445  CALL  Diega(0( II, »sec» 111, Dec«(ll,Fiss.(tl,X5ec, Dec, Fiss,KI$,K2«,  1*111, HID, MID, Flux) 

7470  J=l 

7475  Fl«=" 

7480  Frad(ll=0 

7485  Lo(l)=! 

7490  Eflag=-1 

7495  IF  A(I1=0  THEN 

7500  11=0 

7505  Ait=0 

7510  GOTO  7530 

7515  END  IF 

7520  X=A(I)/VAL(H(II[4,4]I 

7525  CALL  Const  n(J,E(li,0(l),7,l(,Aitl 

7530  Prod'O   " 

7535  IF  Flux=0  THEN  7400 

7540  IF  P(lao=l  THEN  7400 

7545  IF  K$='l"  OR  KWT   OR  K$="8'  OR  K$="9-  THEN  7400 

7550  K=0 

7555  K=K+1 

7540  IF  K=Fiss*l  THEN  7400 

7545  IF  mi)(2,7K>Fis5$(K)[2,7]  THEN  7555 

7570  FOR  L=l  TO  5 

7575  Prod=Prod*Nact (LI IVAL (Fi  ss*(K) ILI9*1 ;8] I /100 

7580  NEH  L 

7585  CALL  Const  pfJ,E«l,0(t),T,Prod,Aitll 

7590  Ait=A«t»Aifl 

7595  GOTO  Test 

7400  Test: IF  Ait<0  THEN  Ait=0 

7405  A«(l)=Ait 

7410  Aptll=U»ProdlT-Ait)IVAL(I«l  11(4,411 

7415  Fract(ll=0 

7420  J1=J 

7425  Daughter:  CALL  Daughter(EIII,l(,(l),D$(»l,Fl$,Flux,I*lll,N,I!,Fracllll,J,E(lag) 

7430  IF  J<=J1  THEN 

7435  FOR  K=J  TO  Jl 

7440  IF  Ai(K)=0  THEN  7455 

7445  IF  FractlKKO  THEN  Fract(KI=0 

7450  B(LolK)l=B(Lo(K))tAi(K)IVAL[l*ILoiK))[4,4])/(l-Fract(K)l 

7455  NEIT  K 

7440  END  IF 

7445  J1=J 

7470  IF  Eflag=I  THEN  Endl 

7475  Ap(J)=Ap(J-lllE(J-l)/0(J-ll 
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7680  IF  Ap(JXThreshtl.E-4  THEM  7805 

7685  IF  flp(J)/  (X+ProdXl.E-10  THEN  7805 

7490  Flag=l 

7695  FOR  Lc=l  TO  N 

7700  IF  H(Lc>[ljl]=M"  THEN 

7705  IF  Ai(JKF(Lc)»l.E-4  THEN  7750 

7710  FOR  Lc2=l  TO  3-1 

7715  IF  Lo(Lr.2)=Lc  THEN 

7720  IF  AplJKAi<Lc2HI.E-4  THEN  7750 

7725  60T0  7740 

7730  END  IF 

7735  NEXT  Lc2 

7740  60T0  7760 

7745  END  IF 

7750  NEXT  Lc 

7755  GOTO  7805 

7760  Lo(J)=Il 

7765  C1=0 

7770  FOB  K»l  TO  J-l 

7775  IF  Lo(K)=Il  THEN 

77B0  CI=C1+1 

7785  Par=K 

7790  END  IF 

7795  NEXT  K 

7B00  IF  CI =2  THEN 

7805  J=J-1 

7810  J1=J1-1 

7815  GOTO  Daughter 

7820  END  IF 

7825  CALL  OaegalOIJ) ,Xsec* (t) , Dec*(0 ,Fiss* ( •) ,Xsec, Dec.Fiss,Kl$,K2», 1$ I U) , Xt (Jl , B*<J) ,Flus 

7830  IF  X=0  THEN 

7B35  Ait=0 

7840  SOTO  7860 

7845  END  IF 

7850 

7855 

7860  IF  Prod=0  THEN  7880 

7865  CALL  Const  n(J, Ell), 0(11, T, Prod, Aitl) 

7B70  IF  AitKO  THEN  (lit  1=0 

7875  Ait=Ait*Aitl 

7880  IF  Ait<0  THEN  Ait=0 

7885  IF  C1=0  THEN 

7B90  Ai(J)=Ait 

7B95  Fract(J)=0 

7900  END  IF 

7905  IF  Cl=l  THEN 

7910  AiU)=0 

7915  IF  Ai(Parl=0  OR  FractlParKO  THEN 

7920  Ai(Par)=AiUAKPar> 

7925  Fract(Par)=-l 

7930  GOTO  7955 

7935  END  IF 

7940  Fract(Par)=Fract(Par)*AiUAi(Par) 

7945  END  IF 

7950  IF  Ait=0  THEN  7805 

7955  Ap(J>=Ap(J)-AitlML(I*(Ill[4,6]) 

7960  GDTO  Daughter 

7965  EndliflOVE  VAL(I*(I)C2.3])+20, 10 

7970    LABEL  "X* 

7975    NEXT  I 

7980    SUBENO 

7985    SUB  ZerolBltl.N) 

7990  FOR  1=1  TO  N 

7995  B(I)=0 

8000  NEXT  I 

B005    SUBEND 

8010  SUB  OiegalO,l5ec*(l),Dec«m,Fi55*ll),X5ec,Dec,Fiss,(;i«,K2l,It,X*,D*,Flui) 
8015   IF  Kl$s"N"  THEN 
8020     Kl="  ■ 


CALL  Const  n<J,E(»),0(t), T.X.Alt) 
IF  Ait<0  THEN  Ait=0 
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8925  CALL  Lit  (Usee*  ill.  Dec*  lt),Fis5*(t) ,  Xsec,  Dec.Fis5.>.$,M  t.  K2*J 

8030  END  IF 

8035  IF  W2;ll="  ■  THEN  8040 

8040  IF  I*t2:lK>Kl*  AND  I*[2|1K>K2«  THEN 

8045  KW«2lH 

8050  CALL  Lib(Xsec«(»),i)ecl(t),Fiss»(l>, Usee, Dec, Fisj,K«,Kl$,K2*l 

8055  END  IF 

8060  1=0 

8065  1=1*1 

8070  IF  I=Dec*l  THEN  Not  dec 

8075  IF  Bec*(ll[2,7K>I$l2.7]  THEN  8065 

8080  D*=Dec«(I! 

8085  IF  D*U0;1]="6"  THEN  Not  dec 

8090  0=LOGI2l/VAL(0«l24j9])  " 

8095  0=FNC1(0,D»I 

8100  GOTO  i=ec 

8105  Not  dec;  D*=IH"  6" 

8110  "    0=0 

8115  Isec:I=0 

8120  1=1*1 

8125  IF  I=Xsec*l  THEN  Not  usee 

8130  IF  Xsec»(l)[2,7]<>I«f2,71  THEN  8120 

8135  X«=tsec«(II[10:LENU5ec$(I>H 

8140  FOR  1=1  TO  VALIHUjll) 

8145  0=0+VAL(MII10-2;9]>»Fluxll.E-24 

8150  NEXT  I 

8155  GOTO  8165 

8160  Not  <sec:X*="0" 

8165  *    SUBEND 

BI70  SUB  Lib(X*(l),D*(ll,F*(l),l(,D,F,K«,Kl*,K2*) 

8175  BIN  A«[75] 

8180  B*=K» 

8185  IF  if  '   THEN 

8190  B»="0" 

8195  X=0 

8200  D=0 

8205  F=0 

8210  END  IF 

8215  ASSI6N  gPath  TO  "DECAY  LIB'IB* 

8220  IF  K«="  "  THEN  8285  " 

B225  Flag=-1 

8230  IF  K2»=*N"  THEN 

8235  K2*=K* 

8240  Flag=l 

8245  END  IF 

8250  IF  Flag=-1  THEN 

8255  K1*=K* 

8260  K2$="N" 

8265  0=31 

8270  1=19 

8275  F=4 

8280  END  IF 

B285  ENTER  fPathiA* 

8290  ON  END  Walli  GOTO  8310 

8295  D=D*I 

B300  D*(B)=A* 

8305  60T0  8285 

8310  ASSI6N  BPath  TO  "XSEC  LIB'iB* 

8315  ENTER  ePathjA* 

8320  ON  END  ePatfi  GOTO  8340 

8325  X=U1 

8330  I«IX)=A* 

8335  GOTO  8315 

8340  IF  K*="l"  OR  K«=,7"  OR  K*="8'  OR  K$='9"  THEN 

8345  GOTO  Endfl 

8350  END  IF 

8355  ASSIBN  fPath  TO  'FISS  LIB'IB* 

8360  ENTER  8Patti:A* 

8365  ON  END  !Path  60T0  Endfl 

8370  F=F*1 
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8375  Ff(F)=A* 

8380  GOTO  8360 

8335  EndMi  ASSI6N  ePath  TO  I 

8390  SUBEND 

8395  SUB  Dauqhter(E(l),X$(l),Djm,Fl«,F!ux,I«(l),N,I,Frac(l),J,EHag) 

8400  IF  FradJIOO  THEN 

8405  l=Frac(J) 

8410  FraclJI=0 

8415  FU=F1«1,J] 

8420  60T0  9200 

8425  END  IF 

8430  IF  LENIFlJKJ  THEN  Find  first 

8435  Fl=NUmFl«[J:l])-64 

8440  IF  Fl>7  THEN  Xsec 

8445  IF  D$UI[ll!n=,9'  THEN  Nine 

8450  A1*=VAL$IFI> 

8455  IF  Fl=5  THEN  fll*="8" 

8460  T$=DJ(JH12:1] 

8465  IF  T«=A1»  OR  TI^O1  OR  T«="5"  THEN  Net.  xsec 

8470  E(J)=VAL(D»I0) 134:911 IL06(2)/VAL(D$(J]T24:91) 

8475  EU)=FNC1(EIJ),D*(J)> 

8480  Fl=VfiL(T$) 

8485  IF  Fl=8  THEN  Fl=5 

8490  GOTO  Test  daughter 

8495  Find  HrstflF  0«(J)[10:11=V  THEN  New  xsec 

B500  "    IF  D*1J> t II; ll=-9-  THEN 

8505  F1=0 

8510  60TO  Nine 

8515  END  IF 

8520  EIJ)=L0G(2)/VAUD*(J>[24;9]) 

8525  IF  D«(JKI2;1H>"0"  THEN  E(J)=E(J)t(l-VAL(D*(Jlt34;9)ll 

8530  E(J)=FNCllE(J),D*iJ)i 

B535  F1=VAUD*(J)[1I(11) 

8540  GOTO  8485 

8545  Nine: IF  Fl=0  THEN 

8550  Scl=l-VALID*(J)[34j9])-uAL(D*(JH44:9I) 

8555  IF  M(J)[12iIl»'4"  THEN 

8560  Fl=3 

8565  ScI-Scl-VAL(D*(J)C54;9]> 

8570  END  IF 

8575  IF  D«IJ)U2ilI="l"  THEN  F1M 

8580  IF  D»(J)[12:1]='2"  OR  D*(J) t 12: I]="3"  THEN  Fl=l 

8585  E(J)=L0G(2)iScl/VAKD«U)  124:91) 

8590  EU)*FNCIIE(J),D»(JI) 

8595  GOTO  Test  daughter 

8600  END  IF   " 

8605  ON  VAL(D«(0)U2;11)  GOTO  8610,8630,8610,8680 

8610  IF  FI=3  THEN  Ne«  xsec 

8615  Fl=3 

8620  F2=l 

8625  GOTO  8725 

8630  IF  Fl=5  THEN  Ne«  xsec 

8635  IF  Fl=6  THEN 

8640  Fl=5 

8645  F2=2 

8650  END  IF 

8655  IF  Fl=l  THEN 

8660  Fl=6 

8665  F2=l 

8670  END  IF 

B675  GOTO  8725 

8680  IF  Fl=2  THEN  Hen  xsec 

8685  IF  F1M  THEN 

8690  Fl=2 

3695  F2=2 

8700  END  IF 

8705  IF  Fl=3  THEN 

B710  FIM 

8715  F2=l 

8720  END  IF 
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8725    EIJ)=L06(2)IVAUD.(J>[F2I10*24;9])/VAUD«(jH24;9]) 

8730    E<J)=FNC1(EIJI,D.(J)) 

8735    GOTO  Test  daughter 

8740  New  xsec:IF  I*U » till 3«»0*  THEN  Neit  daughter 

8745  "    IF  Flux=0  THEN  Ne»  daughter 

8750       Fl=VALU«(J)[2il])*7 

8755  E(JI=VALU$(J>  18(91)  IFluxll.E-24 

8760  60T0  Test  daughter 

8765  Isec;T»=VAL$(Fl-7l" 

8770  li=0 

8775  Ii=Ii+I 

8780  IF  [i=VAK»(J)[l:!])  THEN  New  daughter 

B785  IF  MUilH+tilKHI  THEN  8775" 

WW  IF  X*(J)EIi+2;ll="8"  THEN 

8795  T«="8" 

8800      6DT0  8775 

8805      END  IF 

8810  FI=VALU«(J>[Iit2;H)t7 

B815  EIJ)=VALI»IJ)[Ii«I0tBi9])IFluxH.E-24 

8820  Test  dauqhter:Z=VAL(D«IJ)I2,3]) 

8825  A=VAL!D«(J)I4,6]) 

8830  ft*='0' 

8835  Alph=0 

8840  ON  (Fl)  60T0  8845, 8855,8865,9020, 8885, 8900, 8915, 8930,8940, 8950,8970, 8985, 9000, 9015, Xsec 

8845  Z=Z+1 

8850  60T0  9020 

8855  MM 

BS60  GOTO  9020 

8865  i=I-2 

8B70  A=A-4 

8B75  Alph=l 

8880  SOTO  9020 

8885  Z»2+l 

B890  A=A-1 

8895  60T0  9020 

B900  Z=ZH 

8905  B*»"r 

8910  60T0  9020 

8915  7=2-1 

8920  M»'l" 

8925  GOTO  9020 

8930  A=Atl 

8935  60T0  9020 

B940  A=A-1 

8945  60T0  9020 

8950  A=A-3 

8955  7=7-2 

8960  Alph=l 

8965  60T0  9020 

B970  Z=2-l 

8975  Alph=2 

8980  GOTO  9020 

B9B5  A=AM 

8990  At="l' 

8995  BOTO  9020 

9000  A=A-1 

9005  M»'I" 

9010  60T0  9020 

9015  A=A-2 

9020  A«=FNSt«(Z,A,A») 

9025  60SUB  Find 

9030  IF  H=N*1  THEN  8440 

9035  I=Ii 

9040  IF  Alph=I  THEN 

9045  A»='    20040" 

9050  60SUB  Find 

9055  IF  Ii=NH  THEN  Alph=0 

9060  Frac(J)=Ii 

9065  END  IF 

9070  IF  Alph=2  THEN 
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?>}75 

ft»="  10010" 

9080 

GOSUB  Find 

?085 

IF  Ii=N+l  THEN  fllpl»=0 

JOTS 

Frac(J)=!i 

?.l?5 

END  IF 

9100 

IF  «lph=0  THEN  Frac(J)=0 
SOTO  Endfl 

9105 

9110  Find:li=0 

9115 

Ii=Ii+l 

9120 

IF  Ii=N*l  THEN  RETURN 

9125 

IF  mii)[2,7K>fl$[2,7]  THEN  9115 

9130 

RETURN 

9135  Nen  daughter:  J-J-l 

9140 

IF  J=0  THEN 

9145 

EflaqM 

9150 

GOTO  Endfl 

9155 

END  IF 

9160 

GOTO  8400 

9145  Endfl:  IF  J<  =  l  THEN 

9170 

Fl*=" 

9175 

IF  I»l  THEN  60T0  9195 

9180 

IF  J=0  THEN  60T0  9200 

9185 

END  IF 

9190 

FU=FI»tl,J-l] 

9195 

Fl«=Fl«CHR*(Fl+64) 

9200 

J=J+1 

9205 

SUBEND 

9210 

SUB  Tranlflill,B!l!,N,Cill,B(l»! 

5215 

FOR  1=1  TO  N 

9220 

A(I1«J(I) 

9225 

NEXT  I 

9230 

FOR  1=1  TO  82 

9235 

CII)=DII) 

9240 

NEXT  I 

9245 

SUBEND 

9250 

SUB  Vectout(I*(ll.flltl,flct*(l),flct(ll,N,Fiiut«) 
DIM  0ut»l!304ltl91 

9255 

9260 

K=0 

9265 

C*='00000O" 

9270 

FOR  1=1  TO  N 

9275 

IF  ftUXl.E-99  THEN  Endl 

9280 

IF  mi)[2;t]="8'  OR  ItmihlW   THEN 

9285 

Flao=-l 

9290 

FOR  J=l  TO  82 

9295 

IF  I«II)I2,7]=Act«IJ)[2,7]  THEN 

9300 

Flaq=l 
J=82 

9:05 

7310 

ENB  IF 

9315 

NEXT  J 

9320 

IF  FIag=l  THEN  Endl 

9325 

END  IF 

9330 

"  B»=I«(I) 

9335 

Mill 

9340 

60SUB  Vect 

9345  EndhNEXT  I 

9350 

FOR  1=1  TO  82 

9355 

IF  Act(IKl.E-99  THEN  End2 

9360 

Bt=Act*(I) 

9365 

Mctll) 

9370 

GOSUB  Vect 

9375  End2:NEIT  I 

9380 

GOTO  Out 

9385  Vect:  E=0 

9390 

IF  B<10  THEN  9410 

9395 

B=B/10 

9400 

E=E*1 

9405 

GOTO  9390 

9410 

IF  B>=1  THEN  9430 

9415 

B=BI10 

9420 

E=E-1 
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9425  GOTO  9410 

9430  B=B». 00005 

9*35  IF  B.HO  THEN  9395 

9440  K=K/| 

9445  0«=VAL«(B) 

9450  IF  LEN(0*)>6  THEN  OI=OSil,6J 

9455  IF  LEN(0*)<6  THEN  0$=OMC.U,6-LEN(0*>] 

9440  O.^i!]*'.1 

9465  IF  E>=0  THEN  0*=0«"Ef 

9470  IF  E<0  THEN 

9475  B*4*t*E-a 

9480  E=-E 

9485  ENO  IF 

9490  E*=VAL$(E) 

9495  IF  LENIE«I=1  THEN  0«=O*Sr-O"iE» 

9500  IF  LEH(E*}=2  THEN  0*=0HE$ 

9505  Out»(K)="  1SB«2,7]!['  "10$ 

9510  RETURN 

9515  Out:HASS  STORAGE  IS  ,:HP8290!. 700,1" 

9520  F1  =  1NT(KI22/254H1 

9525  GRAPHICS  OFF 

9530  ON  ERROR  GOTO  Err 

9535  CREATE  ASCII  Fouti.Fl 

9540  OFF  ERROR 

9545  DISP 

9550  ASSI6N  SInin  TO  Fout* 

9555  OUTPUT  2  USIN6  ■#,B":255,75 

9540  CONTROL  1.1:5 

9565  FOR  1=1  TO  I 

9570  PRINT  Out*lI) 

9575  OUTPUT  «Inin;Out*(I) 

9580  NEXT  I 

9585  ASSI6N  SInin  TO  I 

9590  GOTO  Endfl 

9595  Err:X=ERRN 

9600  IF  X<>54  THEN  9615 

9405  Faut$CLEN(Fout»);i]=CHR$<N(Jrl(Fout*[LEN(Fout*)jl]H-l) 

9410  GOTO  9535 

9615  IF  X<>55  AND  X<>44  THEN  9640 

9620  DISP  "THIS  DISK  IS  FULL.  TRV  A  DIFFERENT  ONE  AND  PRESS  (COM)' 

9625  BEEP 

9630  PAUSE 

9635  GOTO  9535 

9640  DISP  'AN  ERROR  HAS  OCCURED  WHILE  TRYING  TO  CREATE  FILEi'jFout. 

9645  BEEP 

9650  STOP 

9655  Endfl iSUBEND 
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SE6HENT  0 

10010 

4 

10020 

4 

10030 

110  5.480E-03  3.897E»0B 

10040 

110  0.0   t   1.00OE-03 

200  30 

6 

20040 

6 

20060 

110  1.548E*00  3.08IE-01 

30040 

6 

30070 

6 

300BO 

110  4.290E»O0  B.42OE-01 

400BO 

130  9.500E-02  2.000E-16 

MOW 

6 

40100 

110  2.025E-01  5.049EM3 

40110 

110  1.151E+01  1.360E401 

50100 

1 

Kilt 

6 

mm 

1 

100200 

6 

100211/ 

t 

100220 

6 

100230 

110  2.04BE»0O  3.724E»OI 

110220 

120  2.387E*00  B.211£»07 

110230 

6 

110240 

110  4.675£*00  5.40OEt04 

110241 

140  4.720E-O1  1.990E-O2 

110250 

110  I.936E»00  5.960E-OI 

120240 

6 

120250 

6 

120240 

6 

120270 

110  1.593E»00  5.677E»02 

1202B0 

110  1.5J3E400  7.528E«04 

130270 

6 

I302B0 

110  3.026E»00  l.344E*02 

110270 

110  2.JS1E+00  3.912EWJ2 

130300 

110  5.723E*O0  3.4B5E*00 

140280 

6 

140290 

6 

140300 

6 

140310 

110  5.965E-01  9.43BE»03 

140320 

510  2.10OE-0I  6.5O0E*O2 

150310 

4 

150320 

410  l.710E*00  l.430£*01 

150330 

410  2.4B0E-01  2.500E*01 

SEGMENT  2 

200400 

6 

200410 

720  2.700E-03  8.100E*01 

200420 

4 

200430 

6 

200440 

i 

200450 

110  7.720E-O2  1.408E+07 

200440 

4 

200470 

110  l.408E*00  3.9I9E«05 

20O4B0 

4 

200490 

210  5.240E»00  B.BOOEiOO 

210450 

6 

210460 

110  2.122EHJO  7.240E»06 

210441 

140  1.372E-01  1.867E*01 

210470 

110  2.70BE-01  2.8»5E>05 

21O4B0 

110  3.54BE*00  l.577E»0J 

210490 

210  2.008E*00  5.75OEt01 

210500 

110  4.827E»00  1.025E»O2 

220460 

6 

220470 

6 

2204SO 

6 

220490 

4 

50120 

110  1.OTW1  2.030E-02 

60120 

6 

40130 

6 

60140 

110  4.947E-02  1.B0BEM1 

60150 

110  2.87IEtO0  2.449E*00 

70130 

120  1.511E»00  5.982EM12 

70140 

6 

70150 

6 

70140 

110  7.3UE+0O  7.120E«OO 

80160 

6 

8017a 

6 

B01BO 

4 

80190 

110  4.8I9E*00  2.900EtOI 

90190 

4 

902OO 

110  7.030E»00  1.140E*OI 

150340 

110  5.100E*00  I.240EWI 

160320 

6 

160330 

4 

160340 

6 

140350 

410  1.674E-01  8.BOOE40I 

140340 

4 

140370 

210  4.8O0EtOO  5.060EM>0 

170350 

4 

170360 

112  2.488E-01  9.499E*12  1.900E-02 

170370 

6 

170380 

110  3.014E*O0  2.233E»03 

170381 

140  6.713E-01  7.160E-O1 

180360 

6 

180370 

120  2.I0OE-03  3.024E*04 

180380 

6 

1BO390 

510  5.450E-0I  2.490E»02 

180400 

1 

180410 

110  l.748E*00  6.577E*03 

180420 

510  4.000E-01  3.300E*01 

190390 

4 

190400 

112  4.104E-01  4.039EH4  1.070E-OI 

190410 

4 

190420 

no  i.;o4E«oo  4.450E+04 

190430 

110  1.279E«00  8.134E»04 

190440 

210  5.200EM10  2.2OOE.01 

220500 

4 

220510 

110  1.235E»00  3.454E»02 

230490 

120  4.300E-03  2.851E407 

230500 

512  l.860E»00  4.000EM6  7.000E-01 

230510 

i 

230520 

110  2.514E*00  2. 25OE+02 

230530 

110  2.037E.OO  9.660E»01 

230540 

110  7.30OE+OO  5.500E401 

240500 

4 

240510 

120  3.42OE-02  2.394E*04 

240520 

4 

240530 

4 

240540 

6 

240550 

110  I.IOIE'OO  2.130E«02 

250540 

120  8.398E-0I  2.700E»07 

250550 

6 

250560 

110  2.521E»00  f.283E»03 

250570 

110  l.l.ME'OO  9.660Et01 

250580 

110  3.995E*00  6.530E+01 

240540 

4 

260550 

520  5.700E-03  2.600E»00 
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260560 

6 

260570 

6 

260580 

i 

260590 

410  1.573E*00  4.5O0E*01 

270580 

120  l.009E»00  6.1I5E»06 

270581 

140  2.466E-02  3.294Et04 

6 

110  2.60IEK70  1.663Et0B 

270600 

270601 

114  6.303E-02  6.282E»02  9.975E-0I 

270610 

110  5.460E-01  5.940E»03 

270620 

110  3.200E«O0  9.000EW1 

270720 

110  8.579E»00  1.227E-01 

270730 

110  7.624E»00  1.155E-01 

270740 

110  9.537E*00  1.075E-01 

270750 

110  S.568EM0  8.0I6E-02 

280580 

6 

280590 

720  6.70OE-O3  8.000E*01 

280600 

6 

280610 

6 

280620 

6 

280630 

510  6.7O0E-O2  9.200EHI 

280640 

6 

280650 

110  1.181Et00  9.072£»03 

280660 

110  6.700E-02  l.966E*05 

icbHtnl 

300630 

220  2.018E+00  3.850E*01 

300640 

6 

300650 

120  5.9O4E-01  2.107E»07 

300660 

6 
6 
6 

3006/0 
300680 

300690 

110  3.209E-01  3.420E*03 

300691 

114  4.388E-01  4.954E.04  9.997E-0I 

300700 

6 

300710 

210  2.8O6E»00  2.4O0E»0O 

300711 

314  2.963Et00  3.92OE»O0  5.000E-04 

300720 

110  2.553E-01  l.674E»05 

300730 

110  2.455E»00  2.350E»01 

300740 

110  1.084EtOO  9.500E»01 

300750 

110  3.278E*00  9.000E»00 

300760 

110  2.I99E*00  5.400E»00 

300770 

110  4.227E*00  I.400EHO 

300780 

110  3.094E*00  2.429£t00 

300790 

110  5.26IE»00  3.821E-01 

300800 

110  4.065E*OO  7.113E-01 

300810 

110  7.266E»00  1.294E-01 

300820 

110  6.729EM0  1.353E-01 

300830 

110  8.226E«00  8.386E-02 

310690 

1 

310700 

110  6.531E-01  l.266E»03 

310710 

6 

310720 

110  3.207EW0  5.076EtO4 

310721 

140  1.200E-01  3.968E-02 

310730 

160  7.630E-0I  1.757E»04 

310740 

110  4.34IE»00  4.86OE>02 

310750 

116  1.381E»00  1.I40E»02  4.0O0E-02 

310760 

110  4.869EMM  2,/IOEtOI 

310770 

116  2.559E+00  I.300EH7I  8.800E-OI 

310780 

110  4.584E*O0  4.9O0E»00 

310790 

118  3.502E«00  2.860E»00  1.400E-03 

310800 

118  5.623EtOO  1.700E»00  8.600E-03 

310810 

110  4.480E*00  7.053E-OI 

310820 

110  7.590E»0O  1.538E-01 

310830 

110  7.I39E»00  I.477E-OI 

310840 

110  B.545E»00  9.B87E-02 

310850 

110  B.079E«00  9.I97E-02 

320700 

6 

320710 

420  9.0O0E-03  1.1B0EMI1 

320711 

140  1.960E-01  2.190E-02 

320720 

6 

2B072O 
280730 
280740 
280750 
280760 
280770 
2B0780 
290620 
290630 
290640 
290650 
290660 
290670 
290720 
290730 
290740 
290750 
290760 
290770 
2907B0 
290790 
290800 
290810 


320730 
320731 
320740 
320750 
320751 
320760 
320770 
320771 
3207SO 
320790 
320800 
320810 
320820 
320830 
320840 
320850 
320860 
320870 
3208BO 
330750 
330760 
330770 
330780 
330790 
330BOO 
330810 
330820 
330821 
330B30 
330840 
330850 
330860 
330870 
330880 
330890 
330900 
340740 
340750 
340760 
340770 
340771 
340780 
340790 
340791 
340800 


110  3.2O7E*0O 
110  5.375E»00 
110  4.250£*00 
110  6.419E»00 
110  5.272E+00 
110  7.39OE»O0 
110  6.303E»00 
120  2.293E*00 


2.419E»00 
3.935E-01 
6.483E-01 
1.796E-0I 
2.684E-01 
1.028E-0I 
1.376E-01 
5.B44EW2 


112  3.130E-0I  4.572EW4  6.2B0E-01 

6 

110  1.I55E*00  3.060Et02 

110  2.709E-OI  2.227E«05 

110  4.691E*0O  6.002E>00 

110  3.4S8E*00  3.948EtOO 

110  5.606E«00  5.731E-OI 

110  4.506E*00  7.666E-01 

110  6.629E«00  2.2I1E-0I 

110  5.522E»00  2.946E-01 

110  7.591E*00  I.206E-01 

110  6.538E»00  I.474E-01 

110  9.53BE»00  9.110E-02 

110  9.I12EH10  7.447E-02 


140  6.70OE-02  5.300E-01 


110  4.66OE-0I  4.968E*03 
140  I.390E-01  4.890E*01 


110  1.733E+00 

114  1.034E»O0 
110  S.150E-01 
110  2.144EtO0 
110  1.029E*00 
110  3.247£»00 
110  2.O64EM70 
118  S.041E-00 
118  4.335E«0O 
110  6.069E»00 
110  5.557E*00 
110  7.125E»00 
110  6.499E*00 
6 

110  l.494E*00 
116  2.376E-01 
110  2.6J7EWJ0 
160  B.790E-01 
110  3.129EiOO 
110  l.669E»00 
110  J.489E.0O 
110  5.704E«0O 
116  2.661E»00 
118  5.865Et00 
118  5.037E400 
118  6.806E«0 
118  5.S97Et00 
110  7.9O6E«00 
110  7.334E»O0 
110  9.027E*00 
6 

120  4.058E-01 
6 
6 
140  2.500E-0I 


110  4.200E-02  2.05OEM2 
140  9.50OE-O2  2.334E»02 
6 


4.068E»04 

5.430E»01  2 

5.220EW3 

4.300E*01 

2.400E*OI 

l.ulOEtOl 

4.600E«00 

I.9ME4M  1 

1.200EtOO  9. 

2.342E-0I 

2.5B9E-01 

1.255E-0I 

1.427E-01 

9.475Et04 
1.397E»05  2 
5.442E+03 
5.4OOE*02 
l.650E*01 
3.20OE»01 
2.100E*01 
1.300E»01 
1.350E*OI  6. 
S.800E*00  1 
2.030E*00  2. 
9.000E-01  3 
3.0O0E-O1  3, 
1.299E-01 
1.294E-01 
9.009E-02 

1.035E«07 


600E-03 
600E-02 


400E-01 
300E-03 
OOOE-01 
BOOE-02 
100E-01 
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340810 

110  4.130E-01  1.I10E*03 

340811 

140  1.010E-01  3.438E*03 

340820 

4 

340830 

110  i.OOIEtw)  l.350E»03 

340831 

no  :.;iie»oo  7.oooe»oi 

340840 

110  9.390E-01  1.980E*02 

340850 

110  3.354E»00  1.900E*01 

340851 

110  3.494E»00  1.900E»01 

340B40 

114  2.439E400  1.440E*01  5.000E-01 

340870 

118  4.238E400  5.40OEM70  1.S00E-03 

340880 

118  3.727E*00  1.500£tOO  5.000E-03 

340890 

118  5.095E400  4.I00E-01  5.00OE-02 

340900 

110  4.5»0E«00  3.545E-01 

140910 

110  4.545EKW  1.845E-01 

340920 

110  5.570E»OO  2.478E-0! 

340930 

110  7.5I4E»00  I.048E-0I 

350790 

6 

350791 

140  2.I0OE-OI  4.84OEM70 

550800 

112  8.015E-01  1.044E>03  8.240E-02 

150801 

140  8.453E-02  1.591E*04 

350810 

6 

350820 

110  2.779E»O0  1.271E405 

350821 

114  7.812E-02  3.478E*02  9.740E-01 

350830 

114  1.284E-01  B.404E*01  9.997E-0I 

350840 

110  3.034E400  l.908£*03 

350841 

110  3.444E*00  3.400E402 

550850 

140  1.O4IEIO0  1.720E»02 

150840 

110  5.093Et00  5.5O0E»Ol 

35084! 

110  4.752E400  4.500E»O0 

350870 

118  1.842Et00  5.580EW1  2.3O0E-02 

550880 

118  2.529E»00  1. 43*401  4.400E-02 

350890 

118  4.797E»O0  4.50OE»0O  B.400E-02 

350900 

119  5.474E*00  l.400E»00  1.200E-01 

150910 

118  5.392E*00  4.000E-01  7.O0OE-O2 

150920 

118  4.490E*00  3.000E-01  2.400E-01 

150930 

110  4.544E»O0  2.012E-0I 

350940 

110  8.454E*00  1.105E-01 

350950 

110  7.494E»0O  1.144E-01 

150940 

110  9.349E»00  8.379E-02 

340780 

4 

340790 

120  2.815E-01  3.490EMJI 

340791 

140  1.27OE-01  5.5OOE»01 

540800 

4 

140810 

120  2.080E-02  4.423EH2 

140811 

140  1.900E-01  1.330E»01 

140820 

4 

140810 

6 

540811 

140  4.074E-02  4.588E>03 

340840 

4 

340850 

110  2.527E-01  3.383Et08 

540851 

114  4.13IE-01  1.413E»04  2.110E-01 

140840 

4 

140870 

110  2.120E*00  4.578E403 

140880 

110  2.319£»00  1.022E*04 

140890 

110  3.198E*00  I.9O2E.02 

140900 

114  2.59IE*O0  1.212E«01  1.220E-01 

340910 

110  1.101E«00  8.700E»00 

340920 

118  l.I89E*O0  1.840E*00  4.000E-04 

340910 

118  4.797E*O0  l.270EtOO  I.20OE-02 

140940 

118  3.848E400  2.100E-0I  4.400E-02 

340950 

110  5.889E400  S.OOOE-OI 

340940 

110  4.853E*O0  4.404E-01 

340970 

110  4.994E»00  1.485E-01 

3409S0 

110  5.7076*00  2.243E-01 

SEbflEKT  i 

1 

400890 

172  1.242E400  2.824Et05  1.412E-01 

400900 

4 

400901 

140  2.315E«00  8.100E-01 

400910 

4 

400920 

4 

370850 
370840 
170841 
170870 
370880 
370890 
370900 
370901 
370910 
170920 
370930 
370940 
170950 
370940 
370970 
170980 
170990 
171000 
171010 
180840 
180850 
380851 
380840 
180870 
3B0871 
3808B0 
380890 
380900 
380910 
380920 
380930 
380940 
380950 
380940 
380970 
380980 
380990 
131000 
181010 
381020 
381030 
381040 
390890 
390891 
390900 
390901 
390910 
390911 
390920 
390930 
390940 
390950 
390940 
190970 
390980 
390990 
391000 
391010 
391020 
191030 
391040 
391050 
391040 
391070 


110  7.423E-01 
140  5.400E-01 
110  I.410E-01 
110  2.484E400 
110  3.099E400 
110  4.02IE400 
114  4.472E*00 
110  4.047E*00 
118  S.734E»00 
118  I.442E*00 
118  4.715E»O0 
118  4.522E400 
118  4.I7IE<00 
118  5.211E>00 
118  4.805E»00 
118  4.022E*00 
110  B.459E»00 
110  7.375E»00 
4 

120  5.244E-01 
242  2.291E-01 
4 
4 

142  3.849E-01 
4 

110  5.832E-0I 
110  1.958E-01 
114  l.3S2E*O0 
110  1.535E-O0 
110  2.S54E*0O 
110  2.1I2E400 
110  3.301E»00 
110  2.472E+00 
118  4.187EM70 
118  1.184E400 
110  5.204E»00 
110  1.944E*O0 
110  4.094E400 
110  4.880E»00 
110  7.022E400 
110  9.972E«00 
4 

140  9.I48E-01 
110  9.350E-O1 
114  4.830E-01 
110  4.059E-01 
140  5.574E-01 
110  1.498E«O0 
110  I.242E400 
110  2.811E»00 
110  2.234E*O0 
110  1.849E*00 
118  1.097E*OO 
118  4.787E<00 
118  3.718E400 
110  5.824E«00 
110  4.411E*00 
110  4.734EH70 
110  5.539E«00 
110  7.424E<00 
110  4.444E*00 
110  8.440E»00 
110  7.474E400 


1.412Et04 
4.  10BE401 
I.4B2EH8 
1.048E403 
9.120E»02 
l.530E*02 
2.5B0E»02 
5.B20E»01 
4.480E*00 
5.800E»00 
2.490E*00 
3.400E-01 
2.070E-01 
1.700E-01 
1.400E-01 
7.400E-02 
I.004E-OI 
1.133E-01 

5.402E*04 
7.000E*Ol 


4.1OOE-02 

1.2O0E-O4 

1.420E-02 

l.noE-oi 

7.1O0E-O2 
1.270E-01 
2. 100E-01 
2.400E-01 
3.700E-O1 


I.010E404  3.000E-03 

4.343EM4 

9. 190E408 

3.420E«04  5.B00E-0I 

9.754E»03 

4.50OE'02 

7.540E»01 

2.400E>OI 

4.0O0E*O0 

2.000E-01  9.5OOE-04 

B.500E-01  5.000E-O3 

S.400E-OI 

l.044E>00 

2.519E-01 

4.147E-01 

1.184E-0I 

1.925E-OI 

1.404E401 
2. 304E+05 

1.114E*04  9.94OE-0I 

5.055E404 

2.983E403 

1.2?4E»04 

3.434E»04 

1.144E«03 

4.100E402 

l.380E»02 

I.MOEtOO  1.4O0E-O2 

3.000E-01  4.800E-O3 

8.000E-01  3.800E-O2 

7.541E-01 

9.742E-01 

2.724E-01 

3.440E-01 

1.442E-01 

1.714E-01 

9.292E-02 

1.044E-01 


400930  114  1.940E-02  4.828E.1!  9.5O0E-01 

400940  4 

400950  114  8.545E-0I  5.528E«04  7.000E-01 

400940  4 

400970  114  8.791E-0!  4.0B4E.04  9.441E-01 
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400980 

110  9.030E-01  3.100E*01 

400990 

110  2.414E»00  2.400E*00 

401000 

116  1.369E«00  7.IOOE*00  5.000E-01 

401010 

110  3.123E*00  3.300E»00 

401020 

110  2.170E«00  2.B62Et01 

401030 

110  4.137E400  1.770EtOO 

401040 

110  2.977E*0O  3.783E»00 

401050 

110  5.0I0E>00  5.586E-01 

401040 

110  3.960E«00  9.801E-01 

401070 

110  5.999EHJ0  2.485E-0I 

401080 

110  4.B56E'00  4.076E-01 

401090 

110  6.861E400  I.387E-01 

410910 

520  1.720E-02  1.000E*04 

410920 

420  l.S10E«00  l.OloE'Ol 

410930 

6 

410931 

140  2.9B9E-02  4.292E*0B 

410940 

110  1.719E»00  6.406EO1 

410941 

114  4.710E-02  3.756E*02  9.952E-01 

410950 

110  8.092E-01  3.037E>06 

410951 

140  2.344E-01  3.I18E»05 

410960 

110  2.805E*00  8.406E*O4 

410970 

110  1.123E*00  4.326E*03 

410971 

140  7.427E-01  6.0OOEM71 

410980 

110  2.082E»00  2.B0OE»00 

410981 

110  3.245E»00  3.090E«)3 

410990 

110  I.557E400  1.43OE.01 

41(1991 

110  2.169E»00  l.560E*02 

411000 

110  3.9B0E»O0  2.400E»00 

411001 

110  3.484E»00  2.410E*OO 

411010 

110  2.231E*O0  7.000E*00 

411020 

110  4.175E»O0  3.000E»00 

411030 

110  3. 1 19E+00  1.567E»01 

411040 

110  5.095E400  1.000E400 

411050 

110  !.956E«iO  1.800E400 

411040 

110  6.005E»00  5.352E-01 

411070 

110  4.96BE»00  6.694E-01 

411080 

110  7.013EtO0  2.22OE-01 

411090 

110  5.896E'00  2.B61E-0I 

411100 

110  7.832E4O0  1.258E-01 

411110 

110  6.773E*00  1.56IE-01 

411120 

110  8.605£*00  8.510E-02 

420920 

6 

420930 

120  I.5B0E-02  1.104EMI 

420931 

140  2.360E»00  2.466E«04 

420940 

6 

420950 

6 

420960 

4 

420970 

4 

4209B0 

6 

420990 

116  5.418E-0I  2.376E»05  8.755E-01 

421000 

1 

421010 

110  1.927E»00  8.772£»02 

421020 

110  3.11OE-0I  6.660E*02 

421030 

110  2.294E400  6.000E»0> 

421040 

110  1.035E«00  9.600E»OI 

421050 

110  3.115E»00  5.4O0Et01 

421060 

110  1.795EMJ0  9.000E*00 

421070 

110  3.693E40O  6.391E*00 

421080 

110  2.69IE*00  l.500E»00 

421090 

110  4.592EI-00  1.033E400 

421100 

110  3.508E400  1.892E400 

421110 

110  5.478E»00  3.917E-01 

421120 

110  4.334E400  6.892E-01 

421130 

110  6.412E»00  1.971E-01 

421140 

110  5.197E400  3.215E-01 

421150 

110  7.21SE400  I.160E-OI 

430970 

820  1.700E-02  2.600E400 

430971 

440  9.650E-02  9.000E401 

430980 

110  I.532E-00  1.325EM4 

430990 

110  8.460E-02  6.722E»12 

430991 

140  I.422E-01  2.167E.04 

431000 

110  1.4B5E*00  1.5B0E*01 

431010 
431020 
431021 
431030 
431040 
431050 
431060 
431070 
431080 
431090 
431100 
431110 
431120 
431130 
431140 
431150 
431160 
431170 
451180 
440960 
440970 
440980 
440990 
441000 
441010 
441020 
441030 
441040 
441050 
441060 
441070 
441080 
441090 
441100 
441110 
441120 
441130 
441140 
441150 
441160 
441170 
441180 
441190 
441200 
451020 
451030 
451031 
451040 
451041 
451050 
451051 
451060 
451061 
451070 
451080 
4510BI 
451090 
451091 
451100 
451101 
451110 
451120 
451130 
451140 
451150 
451160 
451170 
451180 
451190 
451200 
451210 
451220 


110  8.097E-01 
110  1.74OE»O0 
114  3.202E»00 
110  1.227E400 
110  3.668E*00 
110  I.86IEM0 
110  3.888E»00 
110  2.8011*00 
110  4.621E»00 
110  3.723E»O0 
110  5.638E*00 
110  4.568E»00 
110  6.550E*00 
110  5.427E»O0 
110  7.481EWO 
110  6.323E400 
110  B.262EtOO 
110  7.023E*00 
110  8.927EM10 


B.520E»02 

5.280E»00 

2.6I0E»02  5.1 

5.000Et01 

1.092£«03 

4.B00E»02 

3.700E»01 

2.900EMI1 

5. 200E»00 

5.100E401 

B.300E-01 

1.336E*00 

3.553E-01 

4.583E-01 

1.734E-01 

2.225E-01 

1.062E-01 

1.352E-01 

7.722E-02 


127  2.526E-01  2.506E*05  7.54OE-04 


116  5.644E-01  3.394E+06  9.006E-01 
6 

.BOOE-01 


116  I.184E*00 
110  1.0O3E-02 
110  I.452E4O0 
110  5.160E-01 
116  2.382E*00 
110  l.539E*00 
110  3.242E»0O 
110  2.206E»00 
110  4.044E400 
110  2.946E400 
110  4.B90EWO 
110  3.729E*00 
110  5.B20E»00 
110  4.429E4O0 
110  6.565E*00 
110  5.32>E«O0 
520  2.152E400 
6 

140  3.B83E-02 
112  9.974E-01 
114  I.400E-01 
110  2.309E-01 
140  1.2B9E-01 
110  l.618E*00 
110  3.215£*00 
110  8.069E-OI 
110  2.332E400 
110  3.179E400 
116  1.275E«00 
140  2.50OE-0I 
110  3.613E*00 
110  2.537E*O0 
116  2.275EtOO 
110  4.073E40O 
110  3.0I3E400 
110  4.B58E*00 
110  3.785E»00 
110  5.737E400 
110  4.588E»00 
110  S.668E.00 
110  5.316E»00 
110  7.383E»00 
110  6.233E»00 
110  7.97IE»00 


1.59BE*04  2.1 

3.181E'07 

2.520EW2 

2.700E»02 

3.500E401  5.1 

l.60OE*0l 

I.542E*OI 

7.000E-01 

2.766E»00 

5.053EtOO 

7.294E-01 

l.405£»00 

3.089E-01 

6.163E-01 

1.771E-01 

2.932E-01 

2.9O0E»0O 

3.367£*03 

4.230E*01  4 

2.604E*02  9. 

I.273EHH 

4.500E'01 

2.99OE»01 

7.920E*O3 

1.302E403 

!.680£*01 

3.540E>02 

9.000EW1  5. 

5.000E40I 

2.900EMJI 

J.00OE*0O 

6.300E»01  4, 

4.700E»OO 

9.0OOE-01 

I.700EWJO 

6.022E*00 

B.333E-01 

1.076E»0O 

2.953E-0I 

4.477E-01 

I.624E-0I 

2.2IOE-01 

I.053E-0I 


500E-03 
987E-01 


OOOE-OI 
OOOE-03 
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451230 
(41020 
441030 
441040 
441050 
441040 
441070 
461071 
441080 
461090 
461091 
461100 
461110 
461111 
461120 
461130 
461140 
461150 
461140 
441170 
441180 
441190 
441200 
461210 
461220 
461230 
461240 
461250 
461260 
471060 
471070 
471080 
471081 
471090 
471091 
471100 
471101 
471110 
471111 
471120 
471130 
471131 
471140 
471150 
471151 
471160 
471161 
471170 
471171 
471180 
471181 
471190 
471200 
471210 
471220 
471230 
471240 
471250 
471260 
471270 
471280 
481060 
481070 
481080 


110  6.9iaE*00  1.335E-01 

6 

120  6.450E-02  1.465E*06 


110  1.000E-02 
140  2.100E-01 
i 

116  4.486E-01 
140  1.880E-01 
6 

116  8.970E-01 
146  5.B80E-0I 
110  I.550E-01 
116  1.986E.00 
110  1.173E*00 
116  2.579E'0O 
116  1.5696*00 
116  3.349E»0O 
116  2.256M0 
110  l.2B2E*0O 
110  2.951E*O0 
110  (.959E400 
110  3.766E»00 
110  5.690E*00 
110  (.5186*00 
110  6.36?E*00 
110  5.333E*00 
420  1.2196*00 
6 

112  6.2B1E-01 
124  1.634E>00 
6 

140  8.696E-02 
112  1.212E*O0 
114  2.8I7E*00 
110  3.779E-01 
140  6.500E-02 
110  2.093E*0O 
116  l.053E*00 
116  I.IB1E4M 
110  2.050E400 
116  1.725E+00 
116  1.9086*00 
110  3.424E.00 
110  4.010E400 
116  2.479E*00 
116  2.600E*00 
110  3.184E»00 
114  2.123E*00 
116  3.180E*00 
110  2.569E*00 
110  3.B62E'00 
110  5.a78E*00 
110  4.699E*00 
110  6.633E»00 
110  5.479E*00 
110  7.247E+00 
110  6.28BE*00 
110  7.893E400 
6 

120  1.207E-OI 
6 


2.050EH4 

2.1306*01 


4.844E*04  1 
2.814E«02 


1  9.920E-01 
I  3.200E-01 


1.320Et03 

1.980Et04 

7.236EMJ4 

9.000E*01  l.OOOE-01 

1.440E»02 

3.8O0E*0l 

1.400Et01 

5.0OOE*O0 

3.I0OE40O 

l.712E*00 

4.272E*00 

6.221E-0I 

I.270E*00 

3.IO0E-01 

5.60IE-01 

1.B31E-01 

2.870E-01 

B.SOOEtOO 


2.700E-01 
5.000E-01 
5.OOOE-01 
5.000E-01 


l.422E»02 
4.00BE*09 

3.960E*0i 
2.460E»0I 
2.I59E'07 
6.437Et05 
6.500E*01 
1. 127E+04 
i.908E*04 
4.6006*01 
4.520£*00 
1.20OE*03 
I.700EMJI 
1.608Et02 
I.040MI 
7.320Ei01 
5.300£*00 
3.7OOE«0O 
2.8OOE*00 
6.000E'O0 
1.I70£'00 
3.000EtOO 
l.OOOE-01 
8.627E-01 
2.685E-01 
3.82OE-01 
1.555E-01 
2.052E-01 
1.024E-01 

2.336E*04 


2.350E-02 
8.900E-02 


3.000E-03 
1.330E-02 


1.300E-02 
4.500E-02 


2.046E-02 
2.700E-01 


2.000E-01 
5.000E-01 


4.100E-01 
5.000E-01 


481090 
4B1100 
481110 

481111 
481120 
481130 
481131 
481140 
481150 
(61151 
481160 
481170 
481171 
481180 
481190 
481191 
481200 
(81210 
(81220 
4B1230 
4B1240 
481250 
(81260 
481270 
481280 
481290 
481300 
(61310 
481320 
491130 
491131 
491140 
491141 
491150 
491151 
491160 
491161 
491170 
491171 
491180 

hiiii 

(91190 
491191 
(91200 
(91201 
(91210 
(91211 
(91220 
(91221 
(91230 
(91231 
(912(0 
(91250 
(91251 
(91260 
(91270 
(91271 
(91280 
(91290 
(91300 
(91310 
(91320 
(91330 
(91340 


170  1.960E-02  4.009E«O7 


140  3.960E-O1  2.922E»03 

6 

6 

114  2.840EH1I  4.604E*O8  1.000E-03 

6 

160  5.355E-01  1.925E405 

116  6.292E-01  3.853E*06  7.000E-05 


116  1.215E.0O  9, 
116  I.371E400  I. 
110  4.390E-01  3, 
160  1.850EtOO  5, 
116  2.064E400  1 
116  9.480E-01  5. 
116  2.795E»00  1, 
110  1.449£*00  5. 
116  3.368E«00  8. 
110  2.287E400  1. 
116  (.0(06*00  I. 
110  2.960E.O0  3. 
116  4.659E*00  6 
110  3.6?5E*00  1. 
110  5.427E*00  3. 
110  4.578E'00  5. 
110  7.404J400  I. 
110  4.1896*00  1. 


360E*03 

224E»04  4. 

018E*03 

640E*02 

920E+02  5, 

OBOEtOl  5. 

2B0EC01  1. 

500E»00 

404E*00  2 

717E+01 

622E*00  3. 

766£t00 

590E-01  5 

290E*00 

377E-0I 

240E-O1 

193E-01 

(48E-01 


3O0E-01 
400E-01 


OOOE-01 
OOOE-01 
800E-01 

300E-01 

.OOOE-01 

OOOE-01 


140  3. 
112  8. 
142  2. 
110  2, 
114  3. 
110  1. 
110  2. 
110  7. 
114  6. 
110  2. 
110  3. 
116  I. 

114  1. 
110  3. 
110  2. 
110  2. 
110  2. 

no  i 

110  3. 
116  2. 
116  2. 
110  4. 
116  3. 
116  3. 
110  5. 
118  4. 
110  4. 
118  5. 
192  4. 

115  5. 

ns  5. 
no  8. 
no  7. 
no  9, 


930E-01  5, 
035E-01  7, 
394E-01  4. 
420E-O1  1 
364E-0I  1. 
382E»00  1 
777E*O0  3. 
600E-01  2. 
370E-01  6. 
037E*00  5, 
3O4E+O0  2, 
349E-00  I. 
425E*00  1. 
906E*00  4 
703E»00  3. 
032E*0O  2. 
I73E«00  1. 
649E*O0  I 
309E-OI  1 
341E400  5 
719E*00  4. 
455£*00  3 
231E*00  2 
35IE*00  1 
1326*00  I. 
066E»00  2. 
2(86*00  3. 
B69E*00  3. 
619E400  " 
373E*O0  5. 
419E»00  3. 
4S5E400  I 
8036*00  1 
MBE'OO  7 


9696*03 

I90E*OI  3.374E-02 

278E»06  4.300E-02 

577E*22 

548E«04  9.630E-O1 

(10E*01 

249E403 

640E403 

9S4E*03  4. 700E-01 

OOoEtOO 

670E*02 

500E'02  5.000E-02 

080E*03  5.000E-02 

4(0E*01 

0606*00 

8006*01 

980E*02 
.0006*01 

5006*00 

970E*OO  9.500E-01 

800E*01  5.  OOOE-01 
.200E*00 

330E*00  7.  OOOE-01 
.200E*01  9.200E-01 

530E*00 

0OOE*OO  6.700E-03 

6(06*00 

700E»00  1.2O0E-02 
.OOOE-01  5.1B0E-01  3.500E-02 
.300E-01  4.500E-02 

OOOE-01  9.500E-02 
.200E-0I 
.I39E-01 

754E-02 


501120 
501130 
501131 
501140 
501150 


170  2.B10E-02  9.945E*06 
220  7.93OE-02  2.000£*01 

6 


501160  6 

501170  6 

501171  140  3.129E-01  1.210E»06 
501180  6 

501190  6 
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501191 
501200 
501210 
501211 
501220 
501230 
501231 
501240 
501250 
501251 
501240 
501270 
501221 
5012B0 
501270 
501291 
501300 
501310 
501320 
501330 
501340 
501350 
501340 
511210 
511220 
511221 
511230 
511240 
511241 
511250 
511240 
511211 
511270 
511280 
511281 
511290 
511300 
511301 
511310 
511320 
511321 
511330 
511340 
511341 
511350 
511340 
511370 
511380 
511390 
521200 
521210 
521211 
521220 
521230 
521231 
521240 
521250 
521251 
521240 
521270 
521271 
5212B0 
521290 
521291 
521300 
521310 
521311 
521320 
521330 
521331 
521340 
521350 


140  9.720E-02  2.117E»07 

4 

110  2.040E-0I  9.448EM4 

110  3.380E-01  1.577EMM 

4 

110  5.249E-01  1.114E-07 

110  4.148E-0I  2.405E>03 


110  1. 118t. i)0 
110  I.135E*00 
140  2. 104E-0I 
110  2.442E*00 
110  l.429E*00 
140  B.  140E-0I 
110  2.530E<00 
110  2.4B7E«00 
140  1.315E*00 
110  3.012E*O0 
110  2.042E*00 
118  4.887E»O0 
110  4.135E*00 
110  5.44IE»00 
110  4,898Et00 


B.329E10S 
5.712E»02 
3.1S6E4-I2 

7.540E*03 

2.480E»02 

3.540E*03 

4.500£*02 

1.500E*O2 

2.232E>02 

4.300E*0I 

4.000E»01 

1.470E*0O  2.I0OE-04 

B.447E-01 

2.911E-01 

4. 130E-01 


112  I.OME<M  2. 
140  1.420E-OI  2 
4 

110  2.240E+00  5 
114  4.337E-01  9, 
114  5.274E-OI  8 
110  3.I17E*00  1. 
114  2.148E*O0  1 
114  1.0OIE»0O  3. 

no  ).4b:e»oo  3, 

110  2.940E*00  4. 
114  1.885E*0O  1. 
110  3.949E«00  2. 
110  3.714E»00  3, 
114  2.442Et00  I. 
110  3.934E»00  1. 
110  3.931E«O0  2. 
114  3.700E»00  I. 
110  4.93OE.O0  1. 
118  5.048E-00  1, 
118  I.87IE.00  I. 
110  4.574EtO0  2. 
110  5.B44E»00  2. 
110  7.449E*O0  1. 
110  4.494E»00  1. 
4 

120  S.B53E-0I  1. 
142  2.955E-01  1 
4 

120  1.710E-02  3, 
140  2.457E-01  I, 


140  1.418E-0I  5, 

i 

110  2.278E-01  3, 

114  9.074E-O2  9. 

4 

110  4.027E-01  4. 

114  2.958E-01  2 

4 

110  1.139E*00  1. 

114  1.422£*00  I. 

110  3.342E-01  2. 

110  1.744£t00  7. 

114  2.982E»00  3. 

110  l.I82E*00  2. 

110  i.IOoEtOO  I. 


333E»05  2.400E-02 
520E»02 


201E*04 
300E»01 
741E»07 
071E*04 
140E>03 
324E>«5 
244E»04 
24OE»02 
555EM14 
4O0E«3 
780EM2 
3BOEt03 
48OE*02 
520E»02 
440E»02 
100E»01 
070E*01 
700E»00 
313E-01 
837E-01 
304E-01 
719E-01 


8.000E-01 
2.300E-01 


1.400E-0I 
1.390E-01 


I.307E-O1 
4.800E-02 

2.200E-02 

8.000E-04 
B.0O0E-O2 


449Et04 

331EM17  I.140E-01 


154Et20 
034E«7 


346E*04 

418E»0*  9.740E-0I 

174E«03 

903E*04  4.50OE-OI 

5OOE103 

080E»05  2.220E-01 

815EM15 

470E»02 

324E«03  1.300E-01 

50BEW3 

920Et01 


521340 
521370 
521380 
521390 
521400 
521410 
521420 
531250 
531240 
531270 
531280 
531290 
531300 
531301 
531310 
531320 
531330 
531331 
531340 
531341 
531350 
531340 
531341 
531370 
5313BO 
531390 
531400 
531410 
531420 
531430 
531440 
531450 
541240 
541250 
541251 
541240 
541270 
541271 
541280 
541290 
541291 
541300 
541310 
541311 
541320 
541330 
541331 
541340 
541341 
541350 
541351 
541340 
541370 
541 380 
541390 
541400 
541410 
541420 
541430 
541440 
541450 
541440 
541470 
551310 
551320 
551330 
551340 
551341 
551350 
551351 
551340 
551370 


118  2.841E+00 
118  4.292E*00 
110  3.58BE>00 
110  5.250E»00 
110  4.242EtOO 
110  6.010E+06 
110  4.431E*00 
420  5.870E-02 
112  5.994E-01 
4 

112  8.348E-01 
110  7.B04E-O2 
110  2.429EMI0 
114  3.074E-01 
114  5.730E-01 
110  2.773E*O0 
114  I.OI3EMI0 
140  l.43IE*00 
110  3.24BE*00 
114  3.448E-0I 
114  1.934E«00 
110  4.254EMXI 
110  3.824E»00 
118  3.543E»00 
118  4.000E*00 
118  4.224E«O0 
118  5.020E*00 
118  4.834E*00 
110  O.834E.00 
110  5.511E»00 
110  7.217E*00 
110  4.227E»00 
4 

320  3.0UE-01 
140  2.50IE-O1 
4 

120  3.09IE-01 
140  2.27BE-01 
4 


140  2.340E-01  4.9I2E«05 


2.100MI  5, 

3.500E»0O  5 

l.440£»00 

4.237E-01 

7.519E-01 

2.35BE-0I 

4.913E-01 

5.970E»OI 

1.125E«04  5. 

1.499E»03  4. 
4.954E»I4 
4.450E*04 
5.400E*02  8. 
4.947E*05  1. 
8.2B0Et03 
7.48BE»04  2. 
9.000E*00 
3. 154E»03 
2.220EM12  9. 
2.3B0E»04  1. 
8.30OE»0l 
4.400E«01 
2.440E»OI  5, 
4.400E*00  2, 
2.400E«0O  I 
8.400E-01  3. 
4.000E-01  I. 
I.940E-OI 
3.2B1E-01 
1.327E-0I 
1.847E-01 

1.700E*01 
5. 700E+OI 

3.144E-04 
7.000E*01 


000E-03 
000E-03 


400E-01 
000E-02 


300E-O1 
110E-02 


B00E-01 
540E-01 


400E-02 
5O0E-02 
00OE-01 
200E-01 
200E-01 


140  1.423E-01 

6 

110  1.807E-01 

140  2.317E-0I 

4 

140  1.904E*00 

110  5.445E-0I 

140  5.247E-01 

i 

110  1.943EtOO 

110  l.BOlEtOO 

110  2.472EM10 

110  2.243E<00 

118  3.84IE«00 

118  2.843EW 

119  4.49BE-00 
110  3.204E*00 
110  5.034E»00 
110  3.953E*00 
110  5.714E.0O 
420  2.790E-02 
112  7.283E-01 
4 

110  1.7I7E+00 
140  I.3S2E-01 
110  5.430E-02 
240  1.419E»00 
114  2.300E*00 
114  1.844E-01 


4.532E*05 
1.892E*05 

2.900E-01 
3.272E»04 
9. 174Et02 

2.29BE*02 

B.5O2E»02 

3.950E*01 

1.340E»01 

1.720E»00  5. 

1.220E»0O  5. 

3.0OOE-O1  1. 

I.OOOE»00 

9.000E-OI 

9.372E-01 

2.438E-01 

9.700E»00 

5.594E*05  9. 

4.507E4O7 
1.044E*04 
7.258E+13 

5.300E»0l 
I.132E«4  I. 
9.447E»0fl  9. 


400E-O4 
IOOE-03 
100E-02 


448E-01 
44OE-01 
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551380 
551381 
551390 
551400 
551410 
551420 
551430 
551440 
551450 
551460 
551470 
551480 
551490 
551500 
561300 
561310 
56131! 
561320 
561330 
561331 
561340 
561350 
56I3S1 
561360 
561361 
561370 
561371 
561380 
561310 
561400 
561410 
561420 
561430 
561440 
561450 
561460 
561470 
561490 
561490 
561500 
561510 
561520 
571370 
571380 
571390 
571400 
571410 
571420 
571430 
571440 
571450 
571460 
571470 
571480 

SESBEKT  6 

601410 
601420 
601430 
601440 
601450 
601460 
601470 
601480 


110  3.558E*00  I. 
114  9.339E-01  1 
110  l.997E<00  5. 
110  4.062E*00  6 
118  3.202E»00  2, 
118  4.589E*O0  I 
118  3.733E*00  1, 
118  5.391E»00  1. 

118  4.022E*O0  5. 

119  5.802E»00  I. 
110  4.906E»00  5, 
110  6.566E«00  2. 
110  5.721E.0O  2. 
110  7.261E»00  1, 
6 

120  5.153E-01  1, 
240  1.800E-01  1. 


932E*03 

74OE*02  7.50OE-01 

640E»02 

380E»01 

SOOEtOI  7.300E-04 

700E»00  2.100E-03 

700E*00  1.130E-02 

020E>00  1.100E-02 

600E-01  4.400E-02 

900E-01  3.900E-02 

578E-01 

016E-01 

782E-01 

244E-0! 

020E*06 
500EM11 


120  4.424E-01  3.389Et08 

142  2.950E-01  l.400E»05  1.100E-04 

4 

6 

140  2.666E-0I  1.033E»05 

6 

140  2.040E»00  3.09OE-O1 

6 

140  6.624E-01  1.S31E+02 


110  9.394E-01 
110  4.707E-01 
110  l.729E*0O 
110  1.469E100 
110  2.659E*00 
110  l.694E*00 
110  3.209E.OO 
110  l.?40E*00 
110  3.65BE*O0 
110  2.620EMI0 
110  4.309E-00 
110  3.4I1E*00 
110  5.077E>00 
110  4.192E»00 
120  3.098E-02 
112  1.237E*O0 
6 

110  2.B2SE+O0 
110  9.907E-01 
110  3.572E>00 
110  I.972EW0 
110  3.447E«O0 
110  2.578E*00 
110  4.125E*0O 
110  2.975E>00 
110  4.601EH* 


4.962E»03 
I.105E*06 
1.096E*03 
6.420E«02 
l.360E»01 
1.100E»01 
6.20uE*00 
2.200E*00 
2.227EM10 
5.9O1EM0 
9. 175E-0I 
1.797MM 
4.368E-0I 
7.549E-01 
1.893EM2 
4.260E«19  6.7I0E-0I 

1.44BEt05 
1.4!5E*04 
5.562E*03 
8.400E«02 
4.00OE«01 
2.900EW1 
B.300E»00 
l.0OOE*0l 
1.300E»00 


320  9.164E-02  2. 500E+00 
i 

6 

130  0.0      »     6.623E*22 


110  4.070E-01  9.556E*05 


601490    110  9.900E-0!  6.228£*03 


601500 
601510 
601520 
601530 
601540 
601550 


110  1.1B3E.0O  7.440E«02 
110  5.620E-01  6.900E»02 
110  2.088£«00  6.754E«0! 
110  l.079E*00  4.000E»01 
110  2.553E»00  2.606E*01 


571490 

110  3.582E*00  2.864E*00 

571500 

110  5.27OE«0O  6.485E-0! 

571510 

110  4.400EHM  9.536E-0I 

571520 

110  6.072E*0O  3.094E-01 

571530 

110  5.208E»00  4.37IE-01 

S71540 

110  6.834Et00  1.753E-01 

571550 

110  6.I20E*00  2.215E-01 

581360 

6 

581370 

120  5.223E-02  3.240E»04 

581371 

142  2.561E-01  1.239E»05  1.OO0E-O2 

591390 

6 

591390 

120  1.924E-01  1.189E«07 

591391 

140  7.519E-01  5.620E»01 

591400 

6 

591410 

110  2.470E-O1  2.909E«06 

591420 

130  0.0   *   3.3IIE»18 

591430 

110  7.105E-01  I.188E»05 

591440 

114  I.119E-01  2.456E»07  1.200E-02 

591450 

110  1.495E*00  1.9OOE*02 

591460 

110  4.391E-01  8.520E*02 

581470 

110  2.123E»00  7.000E*OI 

581480 

110  9.960E-01  4.300E*01 

581490 

110  2.514EMW  l.OOOEtOO 

581500 

110  1.520E-O0  l.OOOEtOO 

591510 

110  3.098£t00  1.000E*00 

581520 

110  2.236E»O0  l.403E*0l 

581530 

110  3.8IIE»00  1.725E*O0 

591540 

110  2.951E«00  3.591E»00 

581550 

110  4.571E>00  7.125E-0! 

581560 

110  3.831E»00  I.I62E*00 

581570 

110  5.353E*00  3.617E-01 

591390 

320  1.679E-01  4.400EWO 

591400 

220  7.000E-01  3.390E<OO 

591410 

t 

591420 

110  9.671E-01  6.887E*04 

591421 

140  2.500E-01  B.76OE»02 

591430 

110  3.143E-01  1.172E*06 

591440 

110  l.240E>00  l.037E>03 

591441 

114  5.772E-02  4.320E«02  9.994E-01 

591450 

110  6.915E-01  2.153E»04 

591460 

110  2.563E«00  I.452E403 

591470 

110  l.569E*00  7.200E»02 

591480 

110  2.921E»00  l.3B0E»O2 

591490 

110  1.409E*00  1.380E»02 

591500 

110  3.212E-00  !.240E»0> 

591510 

110  2.377E»O0  4.000EtOO 

591520 

110  3.996E«00  3. 31BE+00 

591530 

110  3.144EtO0  7.743E»0O 

591540 

110  4.723E>00  l.307E»00 

591550 

110  3.994E*00  1.891E»00 

591560 

110  5.509E*00  5.104E-01 

591570 

110  4.789E100  6.779E-01 

591580 

110  6.3>8E*00  2.429E-01 

591590 

110  5.72BE*00  3.141E-01 

601560 

110  1.725EiOO  5.849E*0I 

601570 

110  J.245E-O0  4.M9E*00 

601590 

110  2.536E»00  7.889E»00 

601590 

110  3.959Et00  1.4O8E»00 

601600 

110  3.372E*00  2.12IE«00 

601610 

110  4.848E«00  5.558E-0I 

611450 

120  4.430E-02  5.596E*09 

611460 

512  9.509E-01  5.500E»00  6.300E-01 

611470 

110  6.051E-02  9.279Et07 

611480 

110  1.299E-00  4.640E»05 

611481 

114  2.139E<00  3.569E»06  4.900E-02 

611490 

110  3.769E-0I  l.91IE*05 

611500 

110  2.293E»00  9.648E<03 

611510 

110  6.210E-01  I.022EW5 

611520 

110  1.727E+00  2.460E»02 
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110  1.707E»00  4.5O0E»O2 

110  7.5O0E-01  3.240E»O2 

110  2.645E»00  1.4S0E*02 

114  2.554E*00  1.0B0E»02  1.0OOE-O1 

110  l.94IE»00  3.454£»OI 

110  J.215E+00  l.310E»OI 

110  2.626E(00  6.802EtOI 

110  4.145E*O0  3.80IE»00 

HO  I.455E»00  4.230EtOO 

110  4.893E*00  9.943E-01 

110  4.322E*0O  1.188E.00 

110  5.B1B£*00  3.999E-01 


717E-02  2.938Et07 
540E«0  7.000EMJ1 
3IOE»00  3.377E»18 
0I4E»00  2.525E»23 
0      >      3.134E«23 

978E-02  2.840E»09 

310E-01  I.4B1E»05 


611321 

411330 
611540 
611541 

(11550 

MUM 

611570 
61I5BO 
611570 
611600 
611610 
611620 

621440  6 

621450  120  9. 

621460  830  2, 

621470  130  2. 

621480  130  2. 

621490  130  0. 

621300  6 

621510  110  1. 

621520  6 

621330  110  3. 

621540  6 

621550  110  9. 

621560  110  4, 

621570  110  1. 

621580  110  7. 

621590  110  1 

621600  110  1. 

621610  110  2. 

621620  110  2, 

621630  110  3. 

621640  110  2. 

621630  110  4. 

631490  420  7. 

631300  520  I. 

631510  6 

631520  112  1 

631521  112  8, 
631530  6 
631540  110  I. 
631550  110  1 
631560  110  1. 
631570  110  7 
631580  110  2. 
631590  110  I 
631600  110  2. 
631610  110  2. 
631620  110  3. 
631630  110  3. 
631640  110  4. 
631650  110  3. 
641520  130  2. 
641530  120  I. 
641540  6 
641530  6 

SE6HENT  7 


701680 

701690 

701700 

701710 

701720 

701730 

701740 

701750 

701751 

701760 

701770 

711750    6 

711760    910  1.020E*00  3.000E«1 


840E-0I 
270E-01 
52IEM70 
070E-01 
977Et00 
79IE»00 
746E»00 
I79E«00 
579E*O0 
937E«00 
389E*00 
467E-02 
540EtOO 


1.332E*03 
3.3B4EMM 
4.B00E«02 
2.639E»03 
l.622E*02 
3.491Et02 
I.2B8EM1 
1.959E»01 
2.563Et00 
4.247E»00 
9.274E-01 
9.310E»0I 
3.600£*01 


276E»00  4.292E»08  7.214E-01 
104E-01  3.355EMM  2.800E-01 


509£»00 
227E-0I 
741E»00 
520E-01 
130£t00 
582E»00 
269E<00 
077E«OO 
349E*00 
OOBEtOO 
410E»00 
7B0E»00 
198E»00 
524E-01 


2.7I4E*08 
1.565E*08 
1.312E*04 
5.472E«04 
2.754E«03 
l.086E»03 
5.100E»01 
4.206EtO> 
2.49BEt02 
1.4B4E»01 
2.l70EtOO 
2.548E»00 
3.408E»2I 
2.091E»07 


120  4.234E-0I  2.744E»04 

i 

6 

4 

6 

t 

110  1.693E-01  3.620E<05 

140  5.130E-01  6.70OE-02 

i 

310  1.400EMIO  1.900E«00 


641551 

140  1.215E-01  3.100E-02 

641560 

6 

641570 

4 

641580 

6 

641590 

110  5.500E-01  4.494E»04 

641600 

6 

641610 

110  1.224E-0O  2.220E«02 

641620 

116  4.I30E-01  4.00OEt02  2.000E-02 

641630 

110  1.447EtO0  9.277E»01 

641640 

110  1.075E»00  1.30l£»03 

641650 

110  2.327EM10  1.002E»O2 

651570 

120  8.100E-03  4.734E»09 

651590 

4 

651600 

110  I.374E1O0  4.247E»04 

651610 

110  3.380E-O1  5.979£«05 

651620 

110  l.682E*00  4.482E*02 

651621 

110  l.832E»00  8.02BE»03 

651630 

110  1.018E*00  I.l70£t03 

651631 

210  7.490E-O1  7.000EtOO 

651640 

110  2.343E'O0  l.B00E*02 

651650 

114  1.703E»OO  3.275E*0I  5.000E-OI 

661560 

6 

661570 

120  3.421E-01  2.914E*04 

661580 

4 

661590 

420  5.790E-02  1.440E*02 

661600 

4 

661610 

4 

661620 

6 

661630 

6 

661640 

4 

661650 

110  7.810E-O1  8.440E»03 

661651 

114  1.240E-01  7.534EHI1  9.750E-O1 

661660 

110  1.970E-01  2.934E«05 

671630 

520  9.000E-03  3.3OOE«01 

671650 

6 

671660 

110  7.231E-01  9.648E*04 

671661 

110  1.849E*O0  S.7B7E-10 

6B1620 

4 

681630 

220  l.OOOE-02  7.50OE*OI 

681640 

4 

681650 

320  4.549E-02  l.030E»0l 

631660 

4 

681670 

4 

6SI67I 

140  2.080E-01  2.300E»0O 

661680 

4 

681690 

410  3.400E-01  9.400E»0O 

681700 

4 

681710 

110  8.066E-01  !.707E»04 

681720 

310  9.IOOE-01  4.900EXII 

691690 

4 

691700 

112  S.347E-01  1.IIIE407  1.460E-03 

691701 

140  0.0   »   4.100E-06 

691710 

110  2.414E-02  4.059E>07 

691720 

310  l.880E*00  4.340EtOI 

691730 

310  l.320E»00  B.240£tOO 

711741  310  l.310E*00  3.490E*00 

711770  110  1.820E-01  5.797E405 

711771  414  1.358EKM  l.550E*02  2.200E-41 
721740  4 

721750  420  4.149E-01  7.000E»01 


721740 
721770 
721780 
721781 

721790 
721791 
721800 
721S01 


4 

6 

6 

140  I.I47E»00  4.000E*00 

4 

140  3.780E-01  I.B40E*0I 

6 

340  1.142E«0  5.500E»00 
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721810 
721820 
731800 

731810 
731820 
731821 
731830 
741800 
711810 
741820 
711330 
741831 
741840 
741850 
741851 
74IB60 
741870 
741880 
74  IBM 
75IB50 
751810 
751B70 
75I8BO 
751BBI 
751870 
761840 
76 1850 
741810 
741870 
741880 
741890 


110  7.540E-01  3.463E»06 

810  5.000E-01  9.000E»00 

510  3.000E-01  1.600EM3 

6 

110  1.502E»00  9.936E»06 

240  5.030E-01  1.450E«01 

410  1.070E*00  5.I00£»00 

6 

120  4.830E-O2  1.047E*07 

4 

4 

140  2.400E-01  5.20OE*00 

6 

410  4.325E-01  7.510E»01 

240  I.970E-0I  1.4706*00 

6 

110  7.451E-0I  8.404E»04 

110  1.009E-01  5.996E»06 

210  2.000E*00  1.1S0E+01 

312  3.407E-01  9.064E*OI  4.500E-02 
910  2.590E»00  5.000E*01 
110  8.371E-01  4.113E»04 
240  1.720E-01  1.87OE«0l 
310  l.OlOEtOO  2.430E*0I 


420  7.192E-01  ' 
4 

4 
4 
4 


,400E«01 


761900 
761901 
741910 
761911 
741920 
761930 
741940 
771910 
771920 
771921 
771930 
771940 
771941 
781900 
781910 
781920 
781930 
781931 
781940 
781950 
781951 
78 1960 
781970 
781971 
7819B0 
781990 
781991 
791970 
791980 
791990 
792000 


1.706E»OO  9.900E*00 
2.450E-01  l.331E«06 
7.40OE-02  1.300E+01 

1.132E*O0  3.100E*01 
9.700E-02  4.000E*00 

1.033E*00  6.395E*06  4.780E-02 
I.410E-0I  2.410E*02 

9.002E-01  4.894E«I4 
1.000E-01  3.200E-02 
3.250E*00  4.000E»02 
3.533E-01  3.000£*00 

5.300E-03  5.000£«02 
1.480E-01  4.3OOEW0 


140  2.457E-01  2.713E*05 

4 

310 

214 
4 

210 
140 


7.5O0E-O1  1.800E»01 
4.220E-01  B.OOOEtOl  9.7O0E-01 


i  l.480E»00  3.000Etvl 
I  4.250E-01  1.410E*01 


I.374EM0  2.498EW0 
2.307E-01  2.713E*05 
2.200E»O0  4.B40E*01 


801940 
B01970 
801971 
B01980 
801990 
801991 
802000 
802010 
802020 
B02030 
B02040 
B02050 
8 1 2030 
812040 
812050 
812040 
B 1 2070 
B 12080 
812090 
822040 
822050 
822040 
B22070 
B22080 
822090 
822100 
822110 
822120 
822140 
832080 
832090 


SEBHENT  9 

902240  230  6.450E+00  3. 100E*01 

902270  130  6.157E*00  l.6I7E»06 

902280  130  5.517£»00  6.037E«7 

902290  130  5.161E*0O  2.316E«11 


6 

320  1.306E-01  6.500E»01 

342  3.017E-01  2.4O0EM71  4.000E-02 

1 

4 

240  5.330E-O1  4.30OE*01 


110  3.360E-0I  4.025E»04 

4 

210  1.400E*00  5.50OE*00 

4 

512  2.389E-0I  3.B00E+0O  2. 100E-02 

4 

210  I 

110  ( 

no  7 
no  I 

530  1 
B20  i 


I  1.524E»00  4.190EW0 
)  4.954E-01  2.B62E*02 
1  3.970E*00  1.842E»02 
I  2.803E«0O  l.320E*02 
I  2.400E+O0  I.400E417 
i  4.90OE-03  3.0OOE*01 


310  1.940E-01  3.300E»00 
110  3.908E-02  7.037E»08 
110  5.055E-01  2.146E»03 
110  3.2I2E-01  3.83OE+04 

110  5.3B0E-01  1.608E»03 
720  2.654EM70  3.6BOE*02 


B32100 
B32101 
832110 
832120 
832130 
832140 
842100 
842110 
842111 
842120 
842130 
842140 
842150 
842 1 40 
842180 
B52170 
842180 
342190 
862200 
862220 
872210 
B72230 
B82220 
8B2230 
882240 
882250 
8B2260 
B82280 
B92250 
892270 
892280 


110  3.B90E-01 
813  5.296E*00 
113  4.729E*00 
113  2.894E*00 
113  7.092E-O1 
113  2.142E*O0 
130  5.408E»00 
130  7.592E+00 
130  7.400E»00 
130  8.940E»00 
130  B.537E>00 
130  7.833E«00 
130  7.531£»00 
130  4.906E*00 
113  6.113E>00 
130  7. 199E*00 
130  7.260E»00 
130  7.000E»00 
130  6.4OSE«0> 
ISO  5.590E*00 
130  6.5IIEtOO 
113  4.38IE-01 
130  4.480E«00 
130  6.007E»00 
130  5.790E»00 
110  1.1B3E-01 
130  4.87IE*0O 
510  1.300E-02 
130  5.893E*00 
113  8.149E-02 
110  l.45BE*00 


4.330E+05 

3.000E100  9 

1.278E«02  9. 

3.433E»03  3, 

2.739E«03  2. 

1.194E»03  2. 

1.194E»07 

5.400E-0I 

2.500E+O1 

3.000E-07 

4.200E-06 

1.643E-04 

1.78OE-03 

I.500E-OI 

I.S30E*02  9. 

3.230E-02 

3.5O0E-02 

3.940E»00 

5,540£»01 

3.304E»05 

2.880Et02 

1.308E»03  4. 

3.800E*01 

9.B79E*05 

3.142EM15 

1.279E«06 

5.049EH0 

4.7OOE*O0 

8.440£«5 

4.871E»08  1. 

2.2O7E*04 


960E-01 
972E-01 
593E-01 
I60E-02 
100E-04 


902300  130  4.774E>00  2.430E*I2 

902310  110  9.466E-02  9.1B7E»04 

902320  130  4.084EW0  4.4J4Etl7 

902330  210  4.270E-01  2.210E»01 
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902340 

140  4.B40E-02  2.082E*04 

712310 

130  5.0B3E*00  1.034EH2 

912320 

110  1.103E+00  1.I32E*05 

912330 

110  3.829E-01  2.333E*04 

912340 

110  2.423E*O0  2.4I2E*04 

912341 

114  8.337E-01  7.02OE»Ol  1.300E-03 

912550 

210  4.710E-O1  2.4I0E»01 

922300 

430  5.99IE»00  2.08OE»OI 

922310 

120  1.395E-01  3.429E*05 

922320 

130  5.414E»00  2.272E*09 

922330 

130  4.904E»00  5.002EM2 

922340 

130  4.B59£tO0  7.714EH2 

922350 

130  4.41BE»00  2.221EM4 

922340 

130  4.570E*O0  7.3B9E>14 

922370 

110  3.192E-01  5.832E115 

9223B0 

130  4.279E»00  1.410EU7 

922390 

110  4.541E-01  1.412E»03 

922400 

140  1.384E-01  5.074E404 

922410 

110  4.04OE-0I  l.OOOE'OO 

932350 

123  9.800E-03  3.422E*07  1.400E-05 

932340 

112  3.403E-0I  3.429EH2  9.100E-01 

932341 

112  1.333E-01  8.100E»04  5.200E-01 

932370 

130  5.154E*00  4.753EH3 

932380 

110  B.080E-01  l.B29E»05 

932390 

110  4.07BE-01  2.035EMJ5 

932400 

110  l.788E*00  3.9O0E»03 

932401 

110  9.774E-01  4.440Et02 

932410 

210  4.710E-01  1.400Et01 

942340 

130  5.B71E*O0  8.997E*07 

942370 

420  4.220E-02  4.54OE»0l 

9423B0 

130  5.591E'0O  2.749E*09 

942390 

130  5.I99EM*  7.594EHI 

942400 

130  5.253E»00  2.043E«I1 

942410 

113  5.230E-03  4.544E»08  2.450E-05 

942420 

130  4.9B2E»00  1.221E*13 

942430 

110  1.947E-01  1.784E»04 

942440 

135  4.892E*00  2.407EH5  1.200E-03 
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942450 

310  4.1 

942440 

410  !.< 

952390 

123  4.1 

952400 

120  1. 

952410 

130  5.1 

952420 

112  I.1 

952421 

191  4.1 

952430 

130  5. 

952440 

310  8.1 

952441 

212  5. 

952450 

310  3.; 

952440 

210  1.: 

942410 

423  4.' 

942420 

130  4. 

942430 

113  4. 

942440 

130  5. 

942450 

130  5.! 

942440 

135  5. 

942470 

130  5. 

942480 

135  2. 

942490 

110  2.' 

942500 

793  1. 

942510 

110  3.< 

972490 

193  1. 

972500 

110  1. 

972510 

210  1. 

982490 

130  7. 

982500 

135  4. 

9B2510 

130  4. 

9B2520 

135  1. 

9B2530 

113  1. 

982540 

453  1. 

982550 

310  1. 

992530 

430  9. 

992540 

430  4. 

992541 

394  8. 

992550 

430  7. 

OOOE-OI  1.040EMJ! 
420E-01  1.085E»01 
077E-O1  4.284E*04  1.000E-04 
104EtOO  l.829E*05 
404E*00  1.344EH0 
915E-01  5.747E*04  1.730E-01 
444E-02  4.797E«09  5.000E-03  1.4OOE-10 
423E*00  2.329EOI 
840E-01  1.0IOE<OI 
I03E-01  2.400E«01  4.100E-04 
130E-01  2.070E»00 
342£*00  2.500E«01 
934E-01  3.400E'Ol  1.000E-02 
214E»00  1.410E*07 
1B9E»00  8.994E*08  9.974E-01 
901 E -00  5.7I5E*0B 
598E»oO  2.4B2E*II 
523E'O0  1.493E»11  2.410E-04 
390E*00  4.923£*14 
lOOEtOI  1.070E»I3  8.330E-02 
934E-01  3.B49E'03 

233E*02  1.740E»0I  2.500E-01  4.100E-01 
OOOE-01  1.000E»00 

■  250E-01  2.745E»07  1.450E-05  4.400E-10 
I72E+O0  1.140E»04 
100EMJ0  5. 700E*01 
8O4E'O0  I.104E*I0 
>247E«00  4.128E*08  7.70OE-04 
027E*00  2.B34E<10 
.204E*0I  8.325E»07  3.100E-02 
7B2E-02  1.539E*04  3.100E-03 
,994E*02  4.050E«01  3.IO0E-03 
.OOOE-01  1.500E»OO 
.782E-02  2.047E»01 
,423E'O0  2.757E»02 

.  173E+0O  3.930E»01  1.547E-02  7.800E-04  1.03OE-03 
,370E*OO  3.9OOE»01 
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SEEHENT 

0 

10010 

11 

3.474E-02 

10020 

212 

4.S74E-05  I.I92E-03 

10030 

11 

5.518E-07 

20030 

214 

5.B79E«01  4.902E*O2 

30060 

3134 

2.575E-03  8.297E*01  1.268E-03 

30070 

213 

3.165E-03  7.908E-03 

40010 

3123 

8.427E-04  6.596E-02  3.82SE-02 

40100 

11 

9.197E-03 

50100 

3134 

4.598E-02  4.0IS£»02  2.480E-03 

50110 
S EG KENT 

3123 

5.351E-04  7.779E-07  2.755E-06 

100200 

213 

3.403E-03  6.130E-03 

100210 

213 

6.364E-02  1.380E-0I 

100220 

II 

4.415E-03 

110220 

11 

6.282Et03 

110230 

41345 

5.283E-02  I.722E-04  4.733E-04  3.814E-02 

120240 

3134 

4.945E-03  4.601E-04  4.012E-O4 

120250 

3134 

I.729E-02  5.21OE-03  6.1I5E-04 

120260 

213 

3.705E-03  9.195E-04 

120270 

11 

3.679E-03 

130270 

3134 

2.279E-02  1.988E-04  9.505E-O4 

140280 

3134 

1.567E-02  2.266E-04  I.226E-03 

140290 

5134 

2.575E-02  1.961E-03  8.2B5E-04 

140300 

3134 

1.126E-02  3.065E-05  1.211E-06 

140310 

11 

4.415E-02 

130310 

5134 

1.653E-02  3.960E-O4  9.505E-03 

3S6KEN1  2 

200400 

3134 

3.679E-02  2.287E-03  1.440E-02 

200420 

3134 

5.972E-02  7.350E-03  6.440E-03 

200430 

3154 

6.369E-OI  2.575E-03  1.O41E-03 

200440 

41234 

9.468E-02  3.525E-0B  1.072E-O5  2.45OE-05 

200460 

11 

6.450E-O2 

200480 

11 

1.0I2E-0I 

210450 

41345 

1.544E*0O  1.14OE-05  2.53SE-05  8.774E-01 

210460 

11 

7.358E-0I 

220460 

3134 

5.83BE-02  2.027E-O4  3.935E-03 

220470 

3154 

I.818E-OI  1.686E-03  6.743E-03 

220480 

3134 

7.220E-01  3.387E-06  6.433E-05 

220490 

3134 

2.149E-01  2.478E-04  7.053E-04 

220500 

3134 

1.738E-02  1.236E-07  1.532E-05 

230500 

11 

7.31!EtOO 

230510 

3134 

4.6I2E-01  I.084E-06  3.08OE-O5 

240500 

3134 

l.473E«0O  1.992E-04  7.77OE-03 

240510 

11 

7.358E-02 

240520 

41234 

3.348E-01  2.994E-05  2.684E-05  4.7UE-04 

240530 

3154 

1.690E»00  9.I98E-04  3.040E-05 

240540 

3134 

3.355E-02  1.410E-05  1.226E-06 

250540 

QEfiKPMT 

II 

3 
213 

9.197E-01 

sconcn i 
300640 

9.754E-02  1.363E-06 

300660 

213 

8.844E-02  1.876E-06 

300670 

213 

!.05OE*00  5.521E-07 

300680 

3135 

I.566E-01  1.873E-06  I.128E-02 

300700 

215 

7.633E-03  8.003E-04 

310690 

11 

5.197E-01 

310710 

215 

I.125E+00  3.587E-02 

320700 

215 

3.091E-01  2.746E-02 

320720 

II 

1.230E-01 

320730 

11 

3.274E*00 

320740 

215 

5.509E-02  I.552E-02 

320750 

11 

4.139E-01 

320760 

215 

5.651E-02  3.929E-02 

330750 

11 

2. 150Et00 

60120 

213 

3.106E-O4  3.890E-04 

60130 

213 

1.048E-04  7.969E-04 

60140 

11 

9.197E-08 

70140 

3134 

4.B96E-03  2.628E-02  I.BI2E-01 

70150 

3134 

2.207E-O6  4.O0OE-06  5.977E-07 

80160 

3134 

1.669E-05  2.725E-03  5.53SE-06 

80170 

13 

2.159E-02 

80180 

213 

3.2B7E-05  4.597E-04 

90190 

3134 

1.202E-03  5.250E-03  4.815E-04 

160320 

3134 

4.B74E-02  4.656E-03  I.839E-02 

160330 

3234 

2.393E-06  1.288E-02  I.839E-04 

160340 

3134 

2.207E-02  7.666E-04  I.928E-04 

160360 

11 

1.380E-02 

170350 

3134 

3.897E»0O  1.877E-03  5.372E-02 

170360 

11 

9.197E-01 

170370 

41545 

4.175E-02  3.678E-04  7.371E-05  5.029E-04 

180360 

3134 

4.66OE-01  1.237E-02  2.185E-02 

1803BO 

11 

7.456E-02 

180390 

II 

5.5I8E*01 

180400 

213 

6.346E-02  5.794E-02 

180410 

11 

4.59BE-02 

190390 

3134 

1.B07E-01  5.635E-03  2.204E-O2 

190400 

3134 

2.759E*00  3.5B3E-02  4.04BE-O1 

190410 

11 

1.530E-01 

250550 

3134 

l.523EM»  3.210E-05  3.698E-04 

260540 

3134 

2.U5E-01  7.347E-04  2.026E-O2 

260560 

3134 

2.683E-01  B.831E-05  I.670E-O3 

260570 

3134 

2.326E-01  I.072E-03  I.231E-04 

260580 

3134 

I.223E-01  3.065E-O6  3.065E-06 

270580 

11 

3.216E*02 

270581 

II 

1.251E»04 

270590 

41345 

2.229E*00  7.387E-02  9.I95E-05  2.622EtOO 

270600 

11 

2.676E-01 

270601 

II 

1.035E»01 

280580 

41234 

4.866E-0I  2.49IE-06  I.371E-03  2.097E-02 

280590 

213 

1.084E»0I  1.I04E»00 

280600 

3134 

2.634E-01  2.434E-04  6.I27E-04 

280610 

3134 

2.4I6E-01  5.467E-03  5.214E-04 

280620 

3134 

l.316EtOO  1.993E-05  3.065E-05 

280630 

11 

2.1I5E*00 

280640 

11 

I.476E-0I 

280650 

II 

2.234E»00 

290630 

3134 

4.846E-01  2.205E-O4  2.759E-03 

290650 

41234 

2.346E-0I  2.172E-04  4.4OIE-05  1.1O7E-04 

290660 

11 

l.242E*OI 

340740 

11 

I.809EMJI 

340740 

213 

7.879E*00  1.967E*00 

340770 

11 

4.3B5EW0 

340780 

215 

I.855E-01  1.226E-0I 

340790 

11 

3.630E-OI 

340BO0 

215 

8.990E-02  1.18BE-02 

340820 

215 

8.614E-03  5.336E-04 

350790 

215 

4.805E»00  l.059E*0O 

350810 

215 

1.789E»00  l.330E»OO 

360780 

215 

4.886E-0I  2.28IE-02 

360800  512345  2.817E*00  4.130E-05  S.754E-06  I.132E-04  8.I66E-01 

360820  512345  7.249EMJ0  I.195E-04  2.737E-06  2.330E-05  3.804E*00 

360830  41234    2.130EM  2.054E-O3  3.110E-06  7.96IE-05 

360840  512345  I.25IE-01  1.9O0E-O4  1.686E-05  2.439E-06  5.257E-02 
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340850 

11 

1.B40E-01 

3B0B6O 

215 

3.914E-01  1.664E-01 

340860 

41234 

1.010E-02  2.405E-04  1.05SE-O5  5.1B1E-0B 

380870 

11 

4.302E»00 

340870 

11 

5.51SE»0I 

380880 

11 

I.243E-03 

37OB50 

215 

2.517E-01  2.4I0E-02 

3B0B90 

11 

5.264E-02 

370840 

11 

l.HlEtOO 

380900 

11 

B.739E-02 

370870 

11 

7.490E-O2 

390890 

21S 

1.33IE-01  I.001E-04 

370880 

11 

9.197E-02 

390900 

215 

4.332E-01  1.58BE-01 

3808*0 

215 

1.047E-01  2.215E-01 

390910 

11 

1.451E-0I 

SEBHEHT  1 

400900 

3134 

2.507E-02  1.108E-04  2.740E-04 

451050 

215 

1.016EH73  4.945E*02 

400910 

3134 

2.755E-01  4.401E-04  8.547E-05 

441020 

11 

4.415E-01 

400920 

3134 

5.433E-02  2.244E-05  4.907E-05 

441040 

11 

6.463E-01 

400930 

213 

1.029EtOO  1.532E-05 

461050 

11 

3.830EM70 

400940 

1134 

1.943E-02  4.23BE-04  3.04BE-04 

441040 

215 

2.748E-01  7.056E-03 

400950 

11 

2.325E-01 

441070 

11 

2.8I6EtOO 

400940 

3134 

1.748E-0!  9.204E-0B  1.225E-07 

461080 

215 

7.090EtOO  1.170E-01 

410930 

512345  4.099E-01  4.597E-04  1.854E-05  1.744E-04  1 

.012E-01  461100 

215 

2.595E-01  3.999E-02 

410940 

11 

4.2B5E*O0 

471070 

512345  6.252E*00  4.597E-04  2.306E-05  2.141E-05  4.2B9E-01 

410950 

11 

8.508E-01 

471090 

512345  3.888EKII  4.904E-04  2.08BE-05  2.373E-05  2.0BIE»00 

420920 

41345 

1.443E-02  9.547E-06  1.900E-03  5.518E-04 

471100 

215 

7.542E100  9.197E-22 

420940 

3134 

3.951E-02  2.023E-04  2.544E-04 

471101 

213 

7.542Et00  7.542E*00 

420950 

3134 

4.219E*00  1.134E-03  3.991E-05 

471110 

11 

3.44IE*00 

420940 

3134 

6.B70E-01  9.192E-05  5.B27E-05 

481040 

11 

9.197E-02 

420970 

3134 

4.934E-01  3.984E-04  3.988E-05 

431080 

11 

2.444E-0I 

420980 

3134 

2.371E-01  2.023E-05  2.450E-04 

481090 

11 

5.978E*01 

420990 

11 

!.OI3E«00 

481100 

215 

2.238E»00  1.705E-02 

421000 

3134 

1.483E-0I  1.145E-06  3.060E-07 

481110 

11 

3.555EM>0 

430990 

212 

9.136E*00  6.130E-04 

481120 

215 

4.333E-01  3.222E-01 

440940 

11 

1.B24E-0I 

481130 

3124 

4.044E»03  1.471E-03  2.045E-06 

140980 

11 

7.358E-01 

481140 

215 

6.448E-0!  5.560E-02 

440990 

11 

4.313EtOO 

481151 

11 

8.225E.0O 

441000 

11 

7.797E-01 

481160 

215 

1.04BE-01  3.994E-03 

441010 

11 

2.950E»00 

481180 

215 

4.59BE-02  4.59BE-02 

441020 

11 

2.421E-01 

491130 

215 

7.031E*00  5.170£*0O 

441030 

1! 

2.464E»00 

491150 

215 

9.415EH1  7.580E»01 

441040 

II 

2.620E-01 

491170 

215 

4.598E-01  4.59BE-01 

441050 

11 

2.90BE-0I 

491171 

215 

4.598E-01  4.59BE-01 

441040 

11 

8.898E-02 

491190 

215 

3.479E-02  5.S18E-02 

451030 

3125 

3.4S1E*01  2.237E-04  2.873EMM 

491191 

215 

3.479E-02  5.518E-02 

451040 

1! 

3.479E»00 

491200 

11 

1.474E-03 

451041 

11 

5 
215 

7.358E»0i 

491201 

11 

1.474E-03 

bk.bnt.Ml 

501120 

5.247E-01  2.304E-01 

521291 

11 

2.900E-01 

501140 

3134 

3.741E-02  5.B44E-04  9.192E-05 

521300 

215 

3.579E-02  2.454E-03 

501150 

3134 

4.553E»00  8.B98E-05  9.1B4E-0S 

521320 

11 

4.890E-04 

501140 

41345 

3.452E-01  4.387E-07  1.533E-05  2.711E-01 

521340 

11 

9.197E-03 

501170 

3134 

7.421E-01  I.455E-05  2.758E-05 

531250 

11 

4.IOIE*02 

501180 

41345 

2.249E-01  4.253E-08  3.064E-04  I.735E-01 

531260 

11 

1.481EMXJ 

501190 

3134 

3.021E-O1  2.445E-04  4.130E-04 

531270 

11 

4.844EMW 

501200 

3135 

5.873E-02  4.130E-07  3.430E-04 

531290 

215 

3.225E*00  2.047Et00 

501220 

313S 

4.222E-02  1.224E-07  1.417E-04 

531300 

11 

4.665E*00 

501230 

11 

I.085E-01 

531310 

11 

3.229E-01 

501240 

3135 

2.217E-01  3.045E-08  1.752E-01 

531350 

11 

2.119E-03 

501250 

11 

5.443E-01 

541240 

215 

8.I91EWI  1.700E»01 

501240 

215 

3.083E-02  I.359E-02 

541250 

II 

5.150E»02 

511210 

215 

5.439E*0O  4.775E-02 

541260 

215 

1.I77E»00  B.180E-02 

511230 

215 

3.J37E+0O  9.485E-03 

541280 

512345  6.54IE-01  4.904E-04  6.469E-07  8.464E-07  4.89BE-02 

511240 

11 

1 . 373E+00 

541290 

41234 

8.447E»0O  4.29IE-03  4.674E-06  2.522E-06 

511250 

215 

4.914E-01  7.073E-O2 

541300 

512345  6.260E-01  6.743E-04  2.3B8E-07  2.024E-04  5.64IE-02 

511240 

11 

1.871E*00 

541310 

41234 

3.046£*0l  6.436E-03  1.439E-04  2.944E-04 

521200 

215 

1.839E-01  3.127E-02 

541320 

512345 

1.025E-O1  1.011E-03  6.914E-08  4.544E-07  3.299E-03 

521220 

215 

2.422Et00  8.422E-01 

541330 

11 

2. 440E«>1 

521230 

11 

1.732E+02 

541340 

512345  4.414E-02  I.410E-03  3.010E-08  5.221E-07  3.344E-04 

521240 

215 

8.341E-01  4.245E-03 

541350 

11 

2.445EM15 

521250 

11 

8.994E-01 

541360 

41234 

1.444E-02  1.747E-03  1.294E-08  2.343E-0S 

521260 

215 

4.248E-01  4.300E-O2 

551330 

51234! 

i  I.072EMI  6.130E-03  1.I03E-06  8.514E-05  1.082EMW 

521271 

11 

2.053£»00 

551340 

215 

1.675E»01  4.232E»O0 

521280 

215 

1.151E-01  3.792E-03 

551341 

215 

1.196E-01  1.196E-01 
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JPPEM1  S.2   flLE:ISEC.LI!   P«6E:  3 


S5I350  II 

551360  11 

551370  11 

551410  11 

511300  215 

5(1320  215 

541340  215 

561350  215 

541360  215 

561370  II 

5413S0  II 

561310  11 

541400  II 

SEBHENT  4 


2.391E+00 

I.336E»00 
2.55?E-02 
1.51BE-03 

3.B91E*00  B.S56E-0I 
7.817E-01  6.256E-02 
8.530E-0I  5.748E-02 
3.485E»0O  7.030E-03 
I.020E-01  I.408E-03 
5.509E-OI 
3.540E-02 
5.518E-01 
5.285E-01 


601420 
601430 
601440 
601450 
601460 
601470 
601430 
601500 
611470 
611480 
611481 
411490 
411510 
421440 
621450 
621470 
621480 
621490 
621500 
621510 
621520 
621530 
621540 
631510 
631520 
631530 
631540 
631550 
631540 
131570 

SE6IOT  7 


701480  213 

701700  213 

701710  213 

701720  213 

701730  11 

701740  3135 

701760  II 

711750  3135 

711710  3135 

721740  II 

721710  II 

721770  215 

721780  215 

721790  215 

721800  11 

721810  II 

731800  11 

731810  215 

731820  II 

741800  II 

741820  215 

741830  11 

741840  215 


U 

(1234 

II 

41234 

41234 

11 

41234 

41234 

512345 

11 

11 

II 

11 

II 

II 

41234 

II 

41234 

II 

41234 

41234 

11 

II 

512345 

41234 

212 

41234 

41234 

II 

II 


l.710E*00 
2.844£»01  8. 
4.715E-0I 
9.347E«00  I. 
2.39IE-01  3. 
2.004E*01 
8.474E-0I  3. 
4.430E-01  3. 
4. I92E*01  3. 
I.170E»03 
2.918E*03 
1.324E<02 
l.031E«02 
6.43BE-02 
1.012E»01 
2.39IEt01  7 
I.137E*00 
7.271E*03  4, 
I.529EW1 
7.210E*02  1. 
7.543E*0I  I. 
8.977E»0I 
1.5l8EtO0 
7.404E»02  I. 
1.9I4E»02  4. 
7.177E*0I  1, 
1.284E*02  2, 
3.455E«02  2. 
7.378Et01 
4.4O9E*0l 


B88E-03  5.293E-05  2.651E-01 

115E-02  I.B97E-05  8.002E-07 
37IE-03  2.4O1E-01  1.321E-08 

678E-04  7.255E-07  I.472E-08 
67BE-03  I.773E-07  9.598E-09 
045E-03  4.188E-06  1.64IE-04  3.212EMJI 


049E-03  6.513E-05  4.509E-01 
597E-03  4.505E-05  4.505E-05 


513E-02  9.878E-01  B.855E-07 
870E-03  5.549E-07  7.85BE-08 


U5E-03  3.891E-05  1.983E-05  2.944Et02 

291E-03  5.077E-O5  1.153E-05 

808E-03 

88IE-03  1.796E-05  I.008E-04 

340E-03  4.021E-07  3.302E-07 


1.043E*03  3.510E-04 

8.1B9E«00  3.479E-04 

l.22IE»0l  3.479E-04 

7.202E-0I  2.750E-04 

1.I13E»01 

I.774E+00  1.853E-01  4.291E*00 

3.4I8E-OI 

7.115E»00  5.595E-01  1.117E»01 

1.97BE*02  I.83SE-04  4.548E-0I 

4.299E*01 

2.029E»Ol 

2.075E«02  6.244E-01 

2.108E*OI  3.386E«01 

l.82l£»01  1.39BE-01 

2.077E*00 

3.179E*0O 

7.139E»0I 

I.9UEMJI  9.392E-03 

i.880E«02 

5.203E»0O 

1.119E*01  4.519E-02 

9.312£«0 

4.895E-01  5.392E-04 


571380 

11 

2.407E*OI 

571390 

11 

l.043E*OO 

571400 

11 

2.210E*00 

581340 

215 

2.004E>00  3.024E-0I 

58I3B0 

215 

1.0I2E-0I  1.384E-03 

581400 

11 

4.309E-02 

581410 

11 

2.97IEMM 

581420 

11 

1.04IE-01 

5B1430 

11 

1.755EtOO 

581440 

11 

1.491E-01 

591410 

51234 

l.504E>00  5.823E-04  3.773E-04  3.504E-04  4.0B8E-0I 

591420 

11 

5.590E»O0 

591430 

11 

I.2I4E»0I 

141520 

213 

I.128E»02  1.475E-04 

441540 

215 

1.348E»0i  7.051E-03 

141550 

213 

2.757E»03  8.IB5E-04 

641540 

11 

3.770E»00 

441570 

213 

1.172E»04  5.058E-05 

141580 

11 

l.795E*O0 

141400 

11 

3.705E-01 

141110 

11 

2.85IE*03 

151590 

214 

l.485E»01  l.839E«0O 

151400 

11 

1.842E*01 

641510 

213 

2.429E*01  8.I94E-04 

141580 

213 

4.43IE»00  5.53BE-04 

441400 

213 

4.93BE»OI  2.749E-05 

141410 

213 

7.4!9E*01  2.743E-04 

111420 

11 

7.454E*01 

111130 

213 

4.820E«1  1.793E-04 

111440 

51234 

1.140E»02  2.310E-03  1.038E-05  7.150E-01 

.434E»02 

141450 

11 

B.547Et02 

471450 

41345 

2.550E*01  1.839E-04  l.597E*00  1.1B8E*00 

481420 

213 

1.335E*01  I.OI4E-03 

681640 

213 

3.435E»O0  I.100E-04 

181640 

3135 

4.743E*00  4.43BE-04  2.24BE*00 

481470 

213 

2.134E»02  4.I42E-04 

181180 

213 

1.043E*00  8.250E-04 

181700 

11 

9.531E-01 

181710 

11 

2.575E»01 

691690 

3135 

4.718E»01  9.I97E-07  3.445E»0O 

691700 

11 

I.B74E>01 

691710 

11 

3.217E«00 

741810 

11 

1.531E»0I 

741B70 

11 

7.307E»01 

751850 

11 

5.142E«0I 

751B70 

215 

2.841E-01  1.308£tOI 

751830 

II 

1.839E-01 

711840 

213 

2.759EW2  9.105E-04 

76 1860 

13 

1. 197E-04 

761870 

213 

4.908E>01  9.27IE-04 

741B80 

213 

3.119E»00  2.74BE-04 

741890 

3135 

2.021EMI1  1.094E-07  2.234E-04 

741900 

3135 

5.295E-01  I.793E-01  1.231E*00 

741920 

3135 

2.937E-01  9.21IE-07  2.1I7E-03 

711930 

11 

1.414EMJ2 

771910 

215 

1.449E»02  1.841E-02 

771120 

11 

1.012E*02 

771930 

215 

4.044EMI1  2.I32£»00 

7B19O0 

213 

1.3B0E»0I  7.3I2E-04 

7B1120 

3135 

2.474E»00  I.803E-05  4.987E-01 

781140 

3135 

I.808E-01  4.435E-07  1.444E-02 

7BI150 

213 

1.092E*0!  4.7IBE-07 

781940 

215 

2.393E-0I  I.735E-02 

7B19B0 

215 

1.445E»O0  1.224E-02 

791970 

II 

4.137E»OI 
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Html  II    2.373E»03 
SE6HENT  8 


801960  213 

801980  215 

801990  II 

802000  11 

802010  11 

802020  II 

802040  II 

812010  II 

812040  11 

312050  11 

822040  II 

822010  11 

822070  II 

SEBHEKI  ? 


2.593E»02  I.116E»01 

I.B58E»00  1.782E-02 

1.656E»02 

5.518EtOO 

5.51BE«0O 

5.169E-0I 

3.955E-02 

l.B62E«0O 

i.SiSEtOO 

2.531E-02 

9.529E-02 

2.472EtOO 

4.720E-O2 


902270 
902280 
902290 
902300 
902320 
902330 
902340 
912310 
912320 
912330 
912340 
912341 
922300 
922310 
922320 
922330 
922340 
922350 
922360 
922370 
9223B0 
922390 
922400 
932350 
932360 
932370 
932380 
932390 
942360 
942370 
9423B0 
942390 


18 

21B  3. 

21B  2. 

312B  2, 

41278  3. 

21B  1. 

218  I. 

3128  6, 

218  6. 

512785  1. 
IB  4. 
21B  2. 
18  2, 
IS  3 
4I27B  1. 
4127B  7 
41278  1. 
41278  I. 
41278  7, 
218  4, 
41278  9, 
3128  3. 
3128  5. 
215  I 
18  2. 

512786  3 
218  I 
3185  I 
218  2. 
218 

41278  3, 

41278  5, 


839E*01 
4B7E»01 
B97E»0I 
35IEW1 
051E+00 
312Et02 
655E-01 
737EMM 
990EtOI 
234E»01 
598E*02 
202E»01 
299E»00 
679E»0I 
12BE*01 
5B1E+00 
923E*0I 
046E«01 
54IE«00 
424E*OI 
021E-0I 
723E»00 
447E-0I 
692E»01 
305E»02 
.212E»0> 
793E*0I 
134E'0I 
040EW1 
.207E+02 
467EI0I 
B61E«01 


2. 759E-02 
1.38BE«0I 
4.968E-03 
5.089E-03 
1.380E*0O 
9.197E-04 
3.2B3E-03 
6.43BE«0I 
I.364E-03 

4.598E»0I 


B22080 

B22I00 

832090 

832100 

842100 

862200 

862220 

8B2230 

882240 

882260    218 

B82280    218 

892270    218 


5.7B4E-02 
2.660E-05  2.217E-02 


3.6BIE-01 

6.743E-05  1.456E-0I  1.234E*01 


2.062E-03 
2.863E-03 
4.266E-04 
2.696E-03 
2.644E-03 
2.3I7E-01 
5.525E-03 
2.191E-02 
1.13IE-02 
1.472Et02 

2.746E-04 
I.778M2 
4.261E-01 
2.063E»01 
2.207E»02 
1.673E-04 
1.120E-03 


9.195E-04  1.675EH11 
1.931E-06  4.231E»01 
I.349E-05  4.5O4E-01 
1.160E-06  4.67IE*01 
2.207E-O5  1.975E-01 

4.597E-05  1.004E-OI 

l.538E«00 

7.290E-02 


2.912E-06  5.244E-01  7.B77E-04 
2.851E<00 


9.195E-06  2.465EtOO 
8.560E-07  !.0S2E*O2 


II  4.479E-05 
II  4.59BE-02 
512458  4.22BE-03  5.805E-04  I.747E-06  3.115E-03  I.747E-06 


II 
215 
II 

11 

218 

II 


4.946E-03 
2.759E-03  4.600E-05 
1.B39E-02 
6.622E-02 

1.196EtOI  6.438E-02 
I.104E»00 

6.392E»0O  9.197E-06 
3.3I1E*00  I.839E-01 
4.736E»01  I.B39E-04 


942400 
942410 
942420 
942430 
942440 
942450 
952410 
952420 
952421 
952430 
952440 
952441 
962420 
962430 
962440 
942450 
962460 
962470 
962480 
962490 
962500 
972490 
972500 
9B2490 
982500 
982510 
982520 
982530 
982540 
992530 
992540 
992541 


4I27B 

41278 

41278 

3128 

11 

II 

512785 

41278 

41278 

412B5 


3128 

4127B 

5129 

3128 

5128 

3128 

3128 

218 

II 

41278 

218 

3128 

41278 

3128 

312B 

218 

It 

215 

218 

218 


04OE»O2 
868E«01 
172E»01 
36OE>01 
195E*00 
755E»01 
058E»02 
064E»01 
a04E»0l 
487EtOO 
I15EM72 
472E*02 
801E*00 
392EWJ0 
382E»01 
909EHH 
905E*00 
650E+OI 
3iaE>00 
.472E-0I 
B39E-OI 
,30BE«02 
829E*01 
963E*0I 
574EH72 
.623Et02 
922E»00 
.925E»01 
204E*0O 
.322E»02 
,679E»O0 
.I96E-01 


4.478E-04  I.073E-05  5.840E-0I 
7.518E-03  2.421E-05  I.I81E»02 
2.307E-03  2.26SE-05  4.146E-0I 
1.66IE-02  2.798E»01 


3.280E-04  1.532E-06  I.123E*00  1.307E«OI 
5.670E-03  5.823E-05  1.851E»02 
5.670E-03  5.823E-05  4.662E*02 
2.074E-04  3.959E-01  4.726E*01 


5.295E-05  5.591E-0I 
3.685E-03  1.532E-05  7.170E»01 
1.O4BE-03  8.746E-01 
6.45BE-03  1.710E*02 
1.213E-03  5.756E-01 
1.002E-02  2.546E*OI 
I.824E-03  7.558E-0I 
4.598E«00 

6.379E-03  3.050Et01  2.863E-01 
2.759E*02 

6.852E-03  1.52BE»02 
3.282E-03  2.854E»02  8.905E-0I 
1.172E-02  5.513E*02 
2.657E-03  6.262E*00 
1.302E»02 

9. 1  BSE  .01 
2.885E«02 
1.692EW2 
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APPEKOII  8.3   fIL£:fISS_LIB   PB6E:  1 

SE6HENT  0 

10030  1.35E-02  1.I0E-O2  2.30E-02  1.75E-02  1.75E-02 
30060  5.00E-05  5.00E-05  5.0OE-O5  5.00E-05  5.00E-05 
30070  1.00E-04  I.00E-04  I.00E-04  1.0OE-04  1.00E-04 


40090  I.SOE-06  1.S0E-04  I.50E-06  1.50E-04  I.50E-04 
40100  9.00E-06  9.00E-06  9.00E-06  1.00E-06  9.00E-04 
40140  1.30E-04  1.3OE-04  I.3OE-06  1.30E-04  1.30E-04 


270720 
270730 
270740 
270750 
280720 
280730 
280740 
280750 
2B074O 
280770 
280780 


2.26E-04 
2.04E-08 
3.54E-08 
7.39E-09 
1.B7E-04 
1.4OE-05 
4.07E-05 
I.45E-05 
2.54E-04 
1.78E-07 
1.24E-08 


8.87E 
9.07E 
7.32E- 

9.62E 
2.85E- 
1.49E 
2.42E 
9.94E 
3.26E- 
4.51E 
5.04E- 


07  4.04E- 
•08  2.04E 
OS  3.B3E- 
■09  5.04E 
05  9.22E- 
■05  9.17E 
05  5.08E- 
■04  2.07E 
04  5.02E- 

07  9.19E 

08  I.07E- 


05  1.43E 

■05  9.74E 

06  1.79E- 

07  1.19E 
04  I.97E 
04  I.23E 

04  2.54E 
■04  5.50E- 

05  8.28E- 
04  7.1BE 
04  2.37E- 


07  1.79E-04 

-10  5.24E-07 

09  5. 79E-08 

10  B.07E-09 

05  5.1IE-05 
-06  4.43E-05 

06  1.50E-05 
■07  4.66E-04 
OB  2.09E-04 

09  2.34E-07 

10  3.24E-08 


290460 
290720 
290730 
290740 
290750 
290760 
290770 
2907B0 
290790 
290B00 
290810 


2.25E-09 
5.12E-04 
3.34E-04 
8.08E-04 
9.30E-04 
4.46E-04 
9.89E-05 
2.37E-05 
2.44E-04 
I.40E-07 
5.I8E-09 


5.09E-I0  4. 
3.34E-05  5. 
9.84E-05  1. 
2.31E-04  2. 
2.71E-04  2. 
2.70E-04  1. 
1.17E-04  8. 
4.45E-05  3. 
5.1BE-04  1. 
7.03E-07  1 
3.47E-08  I. 


40E-10 
50E-04 
43E-03 
13E-03 
41E-03 
70E-O3 
8OE-04 
08E-04 
30E-04 
30E-05 
04E-06 


1.03E-I0 
B.51E-05 
4.25E-05 
9.34E-05 
6.14E-05 
2.B7E-05 
8.29E-04 
1.0BE-06 
7.I7E-08 
4.31E-09 
I.I5E-10 


1.06E-10 
5.43E-05 
1.24E-04 
1.15E-04 
1.47E-04 
I.39E-04 
5.04E-05 
2.35E-05 
3.64E-06 
4.04E-07 
1.99E-08 


300660 
300670 
300720 
300730 
300740 
300750 
300760 
300770 
300780 
300790 
300BOO 
300810 
300820 
300830 
310710 
310720 
310730 
310740 
310750 
310760 
310770 
310780 
310790 
310800 
310810 
310820 
3I0B30 
310840 
320720 
320730 
320731 
320740 
320750 
320751 
320760 
320770 
320771 
320780 
320790 
320800 
320810 
320820 
320830 
320840 
320850 
320860 
320870 
320880 
330750 


0  3.38E-11 
92E-10  2.36E-1I 
44E-04  6.76E-04 
07E-03  1.28E-04 
44E-03  3.42E-04 
14E-03  1.09E-03 
54E-03  2.95E-03 
18E-03  3.42E-03 
79E-03  4.25E-03 
74E-03  1.45E-03 
72E-04  7.55E-04 
93E-05  1.32E-04 
55E-06  I.33E-05 
48E-07  1.02E-06 
87E-07  5.71E-09 
98E-06  4.22E-08 
37E-04  6.S8E-06 
99E-04  2.19E-05 
22E-03  1.79E-04 
67E-03  1.28E-03 
52E-02  5.32E-03 
91E-02  1.42E-02 
37E-02  1.52E-02 
15E-02  2.13E-02 
06E-03  1.16E-02 
09E-03  3.B4E-03 
13E-04  9.54E-04 
05E-05  5.49E-05 
27E-09  2.79E-I1 
21E-06  2.42E-08 
21E-06  2.42E-08 
98E-06  I.68E-07 
25E-05  2.06E-06 
25E-05  2.06E-06 
05E-03  8.75E-05 
14E-03  6.89E-04 
47E-03  4.78E-04 
98E-02  2.00E-03 
97E-02  2.66E-02 
70E-0I  8.88E-02 
55E-01  1.33E-01 
38E-0I  I.31E-01 
87E-02  9.74E-02 
46E-02  1.91E-02 
81E-03  6.44E-03 
44E-04  1.14E-03 
94E-06  1.83E-04 
22E-0B  2.08E-06 
32E-07  2.42E-09 


0.0 

4.91E-12 

5.43E-05 

3.93E-04 

1.54E-03 

4.53E-03 

B.33E-03 

I.10E-02 

I.04E-02 

I.33E-02 

4.22E-03 

1.20E-03 

1.75E-04 

1.74E-05 

5.50E-09 

1.51E-07 

3.53E-06 

3.98E-05 

3.34E-04 

1.66E-03 

5.5IE-03 

1.38E-02 

4.3BE-02 

3.99E-02 

3.64E-02 

1.69E-02 

5.41E-03 

1.00E-03 

4.28E-11 

1.40E-09 

1.40E-09 

I.20E-07 

I.58E-06 

1.58E-04 

4.B3E-05 

2.18E-04 

2.1BE-04 

2.6BE-03 

2.40E-02 

4.18E-02 

1.41E-01 

2.I3E-01 

1.95E-01 

I.16E-01 

2.47E-02 

5.28E-03 

4.42E-04 

4.88E-05 

7.31E-10 


0.0 

4.49E-12 

4.26E-05 

2.18E-04 

4.91E-04 

8.81E-04 

1.15E-03 

1.03E-03 

5.01E-04 

1.2IE-04 

2.46E-05 

2.15E-06 

1.05E-07 

3.92E-09 

1.66E-0B 

1.71E-06 

4.71E-05 

1.06E-04 

4.90E-04 

1.63E-03 

4.05E-03 

4.54E-03 

5.2BE-03 

3.42E-03 

9.52E-04 

1.39E-04 

1.43E-05 

9.42E-07 

5.45E-09 

7.74E-07 

7.48E-07 

3.38E-04 

2.24E-05 

2.24E-05 

4. 10E-04 

1.3BE-03 

1.38E-03 

1.38E-02 

3.2BE-02 

4.03E-02 

4.93E-02 

2.09E-02 

7.I4E-03 

1.48E-03 

I.74E-04 

1.49E-05 

1.54E-04 

2.07E-0B 

1.16E-07 


0.0 

0.0 

9.70E-06 

6.02E-O5 

1.44E-04 

4.90E-04 

1.24E-03 

1.30E-03 

I.88E-03 

1.00E-03 

3.57E-04 

4.01E-05 

7.62E-06 

5.25E-07 

1.11E-09 

5.34E-08 

1.00E-06 

7. 13E-06 

6.57E-05 

4.42E-04 

1.24E-03 

5.03E-03 

8.12E-03 

B.30E-O3 

4.47E-03 

1.B3E-03 

4.30E-04 

5.62E-05 

J.07E-11 

9.4OE-10 

9.40E-10 

4.27E-08 

4.I0E-07 

4. 10E-07 

2.44E-05 

1.01E-04 

1.01E-04 

2.34E-03 

1.09E-02 

2.B9E-02 

4.43E-02 

5.24E-02 

3.B5E-02 

I.44E-02 

2.74E-03 

4.07E-04 

2.91E-05 

1.11E-04 

5.48E-10 


330740 
330770 
330780 
330790 
330800 
330810 
330820 
330821 
330830 
330840 
330850 
330840 
330870 
3308B0 
330S90 
340760 
340770 
340771 
3407B0 
340790 
340791 
340800 
340B10 
340811 
340820 
340830 
340831 
340640 
340850 
340851 
340860 
340870 
3408B0 
340890 
340900 
340910 
340920 
350790 
350791 
350800 
350801 
350810 
350820 
350821 
350830 
350840 
350941 
350B50 
350860 


4.20E-06 
9.95E-05 
1.15E-03 
1.19E-02 
5.34E-02 
1.24E-01 
1.55E-01 
1.55E-0I 
4.52E-01 
3.57E-01 
1.39E-01 
3.B0E-02 
7.38E-03 
1.93E-04 
8.40E-04 
1.73E-09 
4.54E-04 
4.4BE-09 
5.28E-04 
9.58E-05 
9.58E-05 
2.42E-03 
B.9BE-03 
1.30E-02 
1.19E-01 
2.05E-01 
2.71E-01 
1.I7E»00 
7.11E-01 
7.UE-01 
1.19E*00 
7.45E-01 
1.09E-01 
1.5BE-02 
7.04E-03 
1.97E-04 
4.88E-04 
3.84E-09 
3.53E-08 
9.44E-04 
3.09E-06 
7.40E-O5 
7.73E-04 
6.35E-04 
2.05E-02 
7.7OE-02 
7.7OE-02 
5.79E-01 
6.90E-01 


1.66E-07 
1.27E-05 
2.18E-04 
9.41E-03 
1.49E-02 
5.9BE-02 
B.18E-02 
8.15E-02 
3.22E-01 
3.00E-01 
2.01E-01 
1.13E-0I 
4.44E-02 
2.43E-03 
2.07E-04 
3.I5E-11 
5.25E-09 
2.02E-09 
2.74E-07 
B.03E-04 
8.05E-06 
3.56E-04 
2.19E-03 
4.85E-03 
3.45E-02 
4.83E-02 
4.4OE-02 
4.36E-0I 
4.60E-01 
4.40E-01 
1.19E*00 
9.34E-01 
3.55E-01 
9.27E-02 
3.22E-02 
J.22E-03 
4. 77E-05 
1.34E-09 
1.41E-09 
3.79E-07 
2.86E-07 
B.83E-06 
5.92E-05 
7.30E-05 
3.71E-03 
1.80E-O2 
I.90E-02 
I.49E-01 
2.92E-01 


3.42E-08 
9.B2E-07 
1.B3E-05 
7.11E-04 
3.79E-03 
3.03E-O2 
5.31E-02 
5.34E-02 
2.52E-01 
4.31E-01 
2.87E-01 
1.79E-01 
6.95E-02 
1.72E-02 
2.21E-03 
2.43E-12 
9.I5E-10 
1.30E-10 
1.37E-05 
4.29E-07 
4.29E-07 
2.93E-05 
4.25E-04 
3.59E-04 
9.42E-03 
2.9BE-02 
2.87E-02 
2.75E-01 
2.49E-01 
2.49E-01 
B.78E-0I 
9.40E-01 
7.04E-0I 
2.93E-01 
8.35E-02 
2.0OE-O2 
1.43E-03 
2.25E-11 
2.13E-U 
2.41E-09 
2.73E-09 
5.42E-07 
9.B5E-04 
9.85E-04 
4.I0E-04 
3.15E-03 
3. 15E-03 
3.94E-02 
B.75E-02 


3.23E-06  3, 
6.7OE-05  9 
1.13E-03  3. 
B.3IE-03  5. 
4.07E-02  4. 
9.51E-02  1 
4.99E-02  2, 
4.99E-02  2 
9.08E-02  1, 
5.97E-02  1. 
2.ME-02  7. 
5.75E-03  3, 
1.99E-03  8. 
9.42E-05  I. 
3.65E-06  9. 
2.72E-09  5, 
1.93E-07  2. 
9.44E-08  2. 
1.23E-05  7. 
1.59E-04  I. 
1.58E-04  1, 
4.67E-03  8. 
1.46E-02  5. 
4.94E-03  5, 
8.18E-02  9. 
9.43E-02  2. 
9.43E-02  2. 
3.43E-01  I. 
I.48E-01  1 
1.48E-0I  1. 
2.55E-0I  3, 
2.75E-01  2. 
4.32E-02  1 
5.55E-03  3. 
5.42E-04  7. 
3.48E-05  7. 
1.69E-06  6. 
I.58E-07  2, 
1.44E-07  2. 
1.77E-06  1. 
4.10E-06  I. 
3.01E-04  1. 
2.8BE-03  2, 
6.90E-04  2. 
1.45E-02  1 
3.94E-02  5. 
4.05E-02  5, 
1.99E-0I  4. 
2.00E-01  8. 


71E-08 
82E-07 
44E-05 
57E-04 
12E-03 
74E-02 
75E-02 
77E-02 
I3E-01 
40E-01 
13E-02 
50E-02 
5BE-03 
20E-03 
95E-05 
52E-12 
50E-IO 
50E-10 
02E-08 
77E-04 
77E-04 
09E-05 
4IE-04 
39E-04 
93E-03 
89E-02 
B8E-02 
90E-OI 
38E-01 
3BE-01 
95E-01 
9BE-01 
39E-01 
79E-02 
04E-03 
74E-04 
40E-05 
45E-10 
49E-10 
91E-0B 
99E-08 
83E-04 
73E-05 
73E-05 
02E-03 
31E-03 
32E-03 
31E-02 
83E-02 
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350861 
350870 
350880 
350890 
350900 
350910 
350720 
350930 
350940 
350950 
350960 
360800 
310810 
360811 
360820 
360830 
360831 
360840 
360850 
360851 
360860 
360870 
360880 
360890 
360900 
360910 
360920 
360930 
360940 
360950 
36096O 
360970 
360980 
370850 
370860 
370861 
370870 
370880 
370890 
370900 
370901 
370910 
370920 
370930 
370940 
370950 


6.8OE-0I 
1.54EtOO 
2.3SE*0O 
l.ME'OO 
O.64E-01 
6.02E-02 
7.22E-03 
4.27E-04 
I.74E-05 
B.06E-08 
B.81E-09 
8.01E-10 
I.50E-08 
I.57E-08 
1.83E-06 
5.12E-05 
5.12E-05 
2.79E-03 
2.14E-02 
1.85E-02 
2.66E-01 
I.66EM0 
2.79E»00 
4.20E*00 
3.88EM0 
2.16E100 
8.17E-01 
1.64E-01 
2.48E-02 
3.21E-04 
1.36E-04 
4.26E-06 
7.15E-08 
6.49E-05 
2.04E-04 
5.87E-03 
2.37E-02 
l.BOE-01 
S.34E-01 
1.02EM10 
1.02E*00 
3.38E*00 
3.47EW0 
2.08E»00 
9.11E-0I 
1.19E-01 


3.02E-01 
I.19EM0 
2.I4£»00 
l.BOEtOO 
1.24EtOO 
3.91E-01 
1.89E-02 
4.71E-03 
3.27E-04 
7.33E-06 
3.34E-07 
7.0BE-09 
8.54E-10 
8.92E-10 
1.02E-07 
3.65E-06 
3.99E-06 
3.11E-04 
2.2BE-03 
I.37E-02 
4.87E-02 
3.42E-01 
1.09EtOO 
2.74E»00 
5.45£«)0 
3.02EtOO 
1.47EtOO 
5.00E-01 
2.27E-01 
1.02E-02 
1.67E-03 
4.06E-05 
4.24E-06 
7.22E-05 
2.40E-05 
5.52E-05 
2.68E-03 
3.20E-02 
1.70E-01 
6.76E-01 
4.28E-01 
2.23EtOO 
3.26E»00 
3.03E»0O 
I.55EMM 
B.96E-01 


B.76E-02  2 
4.99E-OI  4 
1.03EW0  5 
1.24E»00  2 
9.56E-01  7. 
6.18E-01  I 
I.63E-01  2. 
2.51E-02  1 
2.47E-03  1. 
3.0IE-04  2 
1.66E-05  9, 
0.0  2 

I.79E-11  1. 
I.86E-11  1 
4.59E-09  5. 
1.40E-07  9 
1.40E-07  1. 
1.65E-05  3 
B.55E-03  7. 
I.B6E-04  I 
5.04E-03  1. 
6.25E-02  1 
4.63E-01  7 
1.29Et00  1 
2.0IEM10  1 
2.38Et0O  7 
2.22E*00  3 
1.I4E*00  7 
3.O4E-0I  1 
I.36E-01  1 
2.18E-02  1 
1.56E-03  6 
1.98E-04  1 
2.47E-04  2 
1.B7E-06  I 
1.B7E-06  4 
9.92E-05  4 
2.1BE-03  4 
4.B0E-02  2 
8.63E-02  3 
7.65E-02  3 
7.16E-01  1 
1.21E»00  1 
2.38E*00  1 
I.95EM70  5 
1.55E»00  1 


00E-01  B.B3E-02 
75E-01  3.72E-0I 
54E-0I  5.I2E-0I 
.16E-01  4.UE-01 
36E-02  2.29E-01 
5BE-02  7.94EH12 
28E-03  2.I3E-02 
77E-04  3.26E-03 
10E-05  2.58E-04 
85E-07  I.41E-05 
38E-09  4.26E-07 
77E-09  1.B9E-12 
64E-07  1.49E-10 
73E-07  1.54E-10 
01E-06  3. 14E-08 
47E-05  I.01E-06 
10E-04  1.00E-06 
2BE-03  2.09E-03 
.OIE-03  5.76E-04 
.03E-02  4.77E-04 
.09E-01  1.25E-02 
.70E-01  B.07E-02 
25E-01  3.25E-01 
20E*00  7.20E-01 
22E+00  l.09E*00 
73E-01  l.05E»00 
29E-01  B.23E-01 
95E-02  4.00E-01 
59E-02  I.01E-01 
21E-03  1.65E-02 
37E-04  1.B6E-03 
.50E-06  1.25E-04 
81E-07  5.35E-06 
.60E-03  5.2BE-07 
5BE-04  I.23E-05 
71E-04  1.23E-05 
77E-02  5.39E-04 
73E-02  7.36E-03 
88E-01  4.94E-02 
.70E-01  1.04E-01 
78E-01  1.04E-0I 
31E*00  6.45E-0I 
49E»00  1 .  1 4EfOO 
MEtOO  1.56£*00 
87E-01  1.  I2E+00 
.75E-01  5.70E-01 


370960 
370970 
370980 
370990 
371000 
380860 
3B0870 
380B71 
380880 
380890 
380900 
380910 
380920 
380930 
3B0940 
3B0950 
3B0960 
380970 
3B09B0 
380990 
381000 
381010 
381020 
381030 
381040 
390890 
390891 
390900 
390901 
390910 
390911 
390920 
390930 
390940 
390950 
390960 
390970 
3909B0 
390990 
391000 
391010 
391020 
391030 
391040 
391050 
391070 


4.83E-02 
5.21E-03 
3.06E-04 
1.72E-05 
3.86E-07 
3.54E-05 
2.67E-05 
2. 73E-05 
1.49E-03 
1.99E-02 
1.66E-01 
B.72E-01 
2.22EM10 
4.47E»0O 
4.79E»00 
3.4BEtOO 
1.99EtO0 
6.B0E-O1 
1.32E-01 
1.92E-02 
1.75E-03 
9.B0E-O5 
2.49E-06 
2.14E-06 
2.73E-0B 
B.  76E-06 
6.56E-06 
2.34E-04 
1.49E-04 
3.20E-03 
2.71E-03 
4.74E-02 
2.79E-OI 
l.02E»00 
2.43E»00 
2.91EM10 
2.8OE»O0 
l.oOE.OO 
6.84E-01 
1.91E-01 
3. 18E-02 
2.78E-03 
2.52E-03 
9.71E-05 
4.12E-06 
1.17E-09 


2.00E-01 
3.64E-02 
5.26E-03 
4.06E-04 
I.70E-O5 
2.59E-0B 
2.55E-06 
9.81E-07 
9.94E-05 
2.5BE-03 
2.B2E-02 
2.29E-01 
l.lBEtOO 
2.7OE»0O 
4.25E»00 
4.57E«00 
3.58E*00 
I.90E«00 
6.9BE-01 
1.54E-01 
2.3BE-02 
2.96E-03 
1.97E-04 
4.B0E-06 
8.23E-0B 
3.60E-07 
2.84E-07 
2.3OE-04 
1.24E-05 
6.24E-04 
2.72E-04 
9.81E-03 
9.B1E-02 
3.52E-01 
9.48E-0I 
2.24E»0O 
3.12£tOO 
2.92EM70 
1.B6E-00 
8.57E-01 
2.69E-01 
5.37E-02 
5.34E-03 
2.54E-04 
2.25E-05 
3. 74E-08 


7.39E-0I 
1.60E-01 
5.B6E-02 
6.51E-03 
6.87E-04 
2.70E-10 
9.I8E-07 
7. 76E-09 
I.88E-06 
1.46E-03 
1.90E-02 
1.61E-02 
4.53E-01 
1.05E*00 
1.95E*0O 
3. 35E»00 
3.63EM0 
3.17EWO 
2.07EM0 
8.90E-01 
2.20E-O1 
3.57E-02 
3.66E-03 
1.24E-04 
5.35E-06 
3.01E-09 
3.01E-09 
1.69E-07 
1.54E-07 
1.50E-05 
6.56E-06 
3.99E-03 
9.93E-03 
5.33E-02 
2.29E-01 
7.25E-01 
1.92EJ00 
2.66E*O0 
3.12E*00 
2.0BE*00 
1.01E*00 
3.27E-01 
5.83E-02 
5.79E-03 
2.58E-04 
l.OOE-07 


4.64E-02  1. 
6.87E-03  4. 
6.0BE-04  5. 
3.29E-05  6. 
1.09E-06  3. 
9.17E-07  4. 
1.49E-05  1. 
1.53E-05  1. 
5.74E-04  1. 
B.99E-03  4. 
7.9flE-02  5. 
3.81E-01  5. 
LliEtOO  2. 
2.47E*00  9. 
3.12E*00  2. 
2.91E*00  2. 
1.B2EMJ0  2. 
7.83E-01  1. 
2.09E-01  7. 
3.26E-02  I. 
4.06E-03  3. 
2.62E-04  4. 
1.77E-05  4. 
4.59E-07  I. 
7.04E-O9  1. 
5.3BE-06  4. 
3.B5E-06  4. 
1.1BE-04  2. 
1.04E-04  2. 
5.13E-03  6. 
3.B2E-03  1. 
3.24E-02  2. 
1.93E-01  2. 
6.6BE-01  I. 
1.67E*00  5. 
2.S7E+00  1. 
2.86E»00  2. 
2.06E-00  2. 
9.B0E-0I  2. 
3.68E-01  1. 
7.25E-02  3. 
1.37E-02  9. 
I.4BE-03  I. 
6.14E-05  2, 
1.9BE-06  1. 
1.31E-10  3 


96E-01 
29E-02 
93E-03 
13E-04 
41E-05 
84E-09 
92E-07 
75E-07 
92E-05 
33E-04 
75E-03 
17E-02 
73E-01 
56E-01 
02E»00 
84E«0O 
66E*00 
71E*00 
07E-01 
99E-01 
69E-02 
51E-03 
11E-04 
B8E-05 
01E-06 
54E-08 
54E-0B 
04E-06 
10E-06 
21E-05 
93E-04 
06E-03 
51E-02 
42E-01 
73E-01 
41E»00 
43E*00 
68E<00 
11E*00 
04E«00 
66E-01 
86E-02 
67E-02 
12E-03 
09E-04 
.39E-0B 


400900 
400901 
400910 
400920 
400930 
400940 
400950 
400960 
400970 
400980 
400990 
401000 
401010 
401020 
401030 
401040 
401050 
401060 
401070 
4010B0 
401090 
410930 
410931 


3.68E-08 
3.6BE-0B 
3.B3E-06 
1.20E-04 
2.57E-03 
3.1BE-02 
2.25E-01 
7.36E-01 
1.84E»00 
3.04E*00 
3.51E*00 
2.67E»O0 
1.21EMJ0 
3.33E-0I 
2.70E-0I 
3.51E-02 
3.45E-03 
3.22E-04 
1.09E-05 
3.52E-07 
7.UE-09 
2. 72E-07 
2.72E-07 


19E-03 
00E-09 
70E-O7 
98E-06 
33E-04 
38E-03 
95E-02 
12E-01 
74E-01 
10E»00 
77E*O0 
45E»00 
20E»00 
73E»00 
26E-01 
01E-02 
03E-02 
4BE-03 
19E-04 
64E-06 
33E-08 
82E-09 
37E-09 


3.96E-12 
3.96E-12 
1.65E-09 
2.30E-05 
5.04E-06 
2.89E-04 
2.07E-O3 
2.1OE-02 
1.41E-01 
5.95E-01 
1.91E*00 
3.3OEM10 
4.29E*00 
3.8BE+O0 
2.07E*00 
6.79E-01 
9.60E-02 
7.46E-03 
3.84E-04 
3.89E-04 
2.94E-0S 
1.33E-09 
3.63E-11 


3.64E-08 
3.63E-0B 
1.23E-03 
1.07E-O4 
I.99E-03 
2. 13E-02 
1.47E-01 
6.26E-01 
1.81E«0 
3.26E*00 
4.31E»0O 
4.36E»00 
2.37E*00 
1.I7E»00 
3.7BE-01 
5.29E-02 
5.23E-03 
2.56E-04 
4.6BE-06 
I.89E-07 
4.31E-0B 
2.51E-07 
2.51E-07 


1.41E-10 
I.42E-10 
1.67E-05 
1.65E-06 
5.62E-05 
1.2BE-03 
1.67E-02 
1.21E-01 
5.96E-01 
1.76EtO0 
3.6IEt00 
4.36E»00 
3.92E«00 
2.B3E*00 
1.30EWO 
4.64E-01 
6.99E-02 
7.B8E-03 
3.35E-04 
2.41E-06 
2.16E-08 
1.79E-09 
1.80E-09 


410940 
410941 
410950 
410951 
410960 
410970 
410971 
4109B0 
410981 
410990 
410991 
411000 
411001 
411010 
411020 
411030 
411040 
411050 
411060 
411070 
411080 
411090 
411100 


1.28E-05 
1.27E-05 
2.73E-04 
9.59E-04 
6.B1E-03 
5.59E-02 
2.40E-O2 
2.14E-01 
1.19E-01 
4.32E-01 
2.79E-01 
7.30E-01 
7.30E-01 
1.64E*00 
1.27E'0O 
9.2BE-01 
3.62E-01 
9.05E-02 
2.21E-02 
2.85E-03 
2.34E-04 
1.80E-05 
2.78E-07 


4.35E-07  3. 
4.3BE-07  3. 
1.72E-05  4. 
1.29E-04  2. 
5.90E-04  6. 
1.6BE-02  5 
6.B6E-03  I. 
4.48E-02  1 
2.72E-02  2. 
1.37E-01  2, 
1.49E-01  2. 
4.69E-01  1 
4.69E-01  1. 
l.SOEtOO  7 
2.04E»0O  I. 
I.68E*00  2 
7.32E-01  2. 
2.03E-01  1 
7.00E-02  3. 
1.14E-02  4 
8.49E-04  4. 
2.47E-05  9 
1.06E-06  1. 


41E-09 
36E-09 
95E-07 
30E-07 
28E-05 
90E-03 
B3E-04 
83E-03 
IOE-03 
09E-02 
09E-02 
04E-01 
04E-01 
63E-0I 
B4E«00 
66E«00 
55E»00 
17E»00 
07E-0I 
90E-02 
25E-02 
27E-03 
16E-03 


B.76E-06 
8.73E-06 
6.B3E-04 
6.83E-04 
4.05E-03 
7.49E-02 
2.01E-02 
1.B5EH11 
1.04E-01 
3.B4E-01 
3.84E-01 
1.02E»00 
1.02E*00 
2.87EtOO 
3.2BE»00 
2.B4E»00 
1.21E»00 
3.73E-01 
6.04E-02 
4.62E-03 
4.69E-04 
1.55E-04 
I.49E-06 


1.40E-07 
1.40E-07 
6.44E-06 
6.3SE-06 
1.28E-02 
2.31E-03 
2.31E-03 
2.04E-O2 
2.04E-02 
I.21E-01 
1.21E-01 
3.69E-01 
3.69E-01 
1.67E*00 
2.99EtO0 
3.37E«00 
3.03E»00 
1.3BE(00 
4.93E-01 
9.2BE-02 
3.2IE-03 
1.13E-04 
3.81E-06 
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411110 
120950 

420940 
420970 
420980 
420990 
421000 
421010 
421020 
421030 
421040 
421030 
421040 
421070 
421080 
421090 
421100 
421110 
421120 
421130 
421140 
421130 
430990 
430991 
431000 
431010 
431020 
431021 
♦31030 
431040 
431050 
431040 
431070 
4310B0 
431090 
431100 
431110 
431120 
431130 
431140 
431150 
431140 
431170 
440990 
441000 
441010 
441020 
441030 
441040 
441050 
441040 
441070 
441080 
441090 
441100 
441110 
441120 
441130 
441140 
441150 
441140 
441170 
441180 
441200 
451030 
451031 
451040 
451041 
451050 
451051 
451040 
451041 


4.40E-09 
1.44E-07 
5.08E-04 
1.38E-04 
2.34E-03 
2.25E-02 
1.29E-01 
3.84E-01 
B.38E-01 
5.53E-OI 
4.09E-01 
3.52E-01 
2.04E-01 
7.01E-02 
1.73E-i>2 
3.93E-03 
2.48E-04 
1.34E-05 
4.53E-07 
4.27E-08 
2.94E-I0 
4.01E-12 
B.41E-04 
8.41E-04 
3.23E-04 
2.B2E-03 
9.80E-03 
9.B0E-03 
1.14E-02 
3.98E-02 
5.55E-02 
7.52E-02 
4.42E-02 
4.29E-02 
2.72E-02 
4.B3E-03 
1.23E-03 
1. 70S -04 
3.23E-05 
1.22E-04 
5.45E-08 
1.33E-04 
1.37E-10 
1.31E-09 
8.I8E-0B 
2.21E-04 
3.29E-05 
2.7BE-05 
3.30E-04 
1.23E-03 
4.30E-03 
9.92E-03 
1.84E-02 
3.  I9E-02 
2.5BE-02 
1.44E-02 
7.42E-03 
2.24E-03 
5.11E-04 
4.02E-05 
5.42E-04 
1.02E-04 
5.45E-08 
l.BJE-10 
7.35E-10 
7.35E-10 
3.38E-08 
3.30E-OB 
3.45E-07 
3.45E-07 
3.15E-04 
2.5IE-05 


41E-0B 
87E-09 
4BE-07 
45E-05 
44E-04 
87E-03 
B8E-02 
12E-0I 
14E-0I 
23E-01 
02E«00 
21E-01 
94E-01 
24E-01 
27E-02 
05E-03 
8OE-04 
42E-05 
48E-04 
22E-07 
23E-08 
71E-10 
I4E-05 
34E-07 
29E-05 
34E-04 
29E-03 
29E-03 
80E-02 
75E-02 
49E-02 
9BE-02 
38E-02 
44E-02 
10E-02 
78E-03 
49E-03 
2OE-04 
13E-04 
53E-05 
23E-04 
94E-0B 
09E-08 
13E-10 
78E-09 
91E-08 
7IE-04 
0OE-05 
2BE-04 
34E-03 
20E-03 
71E-03 
15E-02 
89E-02 
12E-02 
80E-02 
88E-03 
50E-03 
04E-03 
72E-04 
24E-05 
75E-0S 
43E-07 
39E-09 
70E-07 
05E-09 
4BE-08 
8IE-08 
20E-03 
30E-07 
94E-07 
7BE-07 


9.98E-05 
1.17E-11 
1.I4E-09 
4.91E-04 
3.21E-04 
1.0JE-04 
1.70E-03 
I.99E-02 
1.41E-01 
5.95E-01 
1.47EH10 
2.40E*0O 

i.eiEtoo 

8.49E-01 

5.97E-01 

2.99E-01 

I.08E-01 

2.54E-02 

4.B1E-03 

3.43E-04 

3.53E-05 

2.37E-04 

3.24E-09 

3.24E-09 

3.45E-07 

1.43E-05 

1.35E-04 

1.54E-04 

4.18E-03 

3.91E-02 

1.85E-01 

4.40E-01 

5.42E-0I 

3.27E-01 

3.79E-01 

3.27E-01 

2.30E-01 

1.07E-01 

3.10E-02 

7.34E-03 

1.5BE-03 

9.83E-05 

4. 15E-04 

0.0 

4.77E-12 

1.13E-09 

4.84E-08 

3.17E-04 

1.04E-04 

2.24E-03 

1.58E-02 

4.13E-02 

2.90E-02 

B.24E-02 

1.73E-01 

2.97E-01 

3.4OE-01 

3.13E-01 

1.85E-01 

9.B3E-02 

2.27E-02 

3.27E-03 

2.33E-02 

4.83E-04 

3.44E-1I 

2.44E-11 

3.20E-09 

3.34E-09 

4.41E-04 

2.52E-07 

1.39E-05 

B.04E-04 


I.47E-08 
1.09E-07 
3.98E-04 
2.01E-04 
1.45E-03 
1.95E-02 
1.52E-01 
4.71E-01 
l.iOEtOO 
3.54E*00 
4.14EH10 
3.55E*00 
1.7IE«0O 
4.04E-01 
1.20E-01 
4.80E-02 
2. 19E-03 
8.5BE-05 
4.13E-04 
1.21E-07 
1.B4E-09 
3.B4E-1I 
4.23E-04 
4.23E-04 
3. 14E-04 
3.74E-03 
1.34E-02 
1.34E-02 
1.70E-0I 
5.85E-0I 
1.34E400 
l.78E*00 
1.17E+00 
9.09E-01 
4.97E-01 
B.25E-02 
1.27E-02 
1.24E-03 
1.30E-04 
5.94E-04 
3.92E-07 
1.44E-08 
3.79E-10 
7.85E-10 
4.5BE-0B 
2.55E-04 
5.07E-05 
9.97E-04 
I.11E-02 
8.04E-02 
7.40E-0I 
1.4IE*00 
1.15E*00 
8.39E-0I 
4.42E-01 
1.73E-0I 
4.50E-02 
1.29E-02 
I.97E-03 
3.29E-04 
4.34E-05 
3.30E-04 
2.50E-07 
3.17E-10 
4.90E-08 
4.9OE-0B 
2.74E-04 
2. 70E-04 
4.55E-05 
4.55E-05 
9.B4E-04 
5.47E-04 


B.27E-OS 
1.07E-09 
7. 12E-08 
3.83E-04 
1.09E-04 
2.05E-03 
I.77E-02 
I.12E-01 
5.37E-01 
1.55E*00 
3.34E»00 
4.I7E*00 
4.19EJ0O 
2.44E*00 
4.54E-01 
4.93E-02 
5.07E-03 
3.O7E-04 
2.18E-05 
1.71E-04 
4.39E-08 
1.53E-09 
2.04E-07 
2.04E-07 
1.07E-05 
2.07E-04 
1.28E-03 
1.47E-03 
2.34E-02 
1.38E-01 
5.22E-01 
1.43EtOO 
2.42E»00 
2.01EHK) 
4.82E-0I 
1.75E-01 
3.33E-02 
5.I3E-03 
9.42E-04 
B.23E-05 
4.07E-04 
2.44E-07 
8.51E-09 
7.B4E-I2 
4.34E-10 
3.84E-0S 
1.49E-04 
3.99E-05 
4.91E-04 
8.51E-03 
7.48E-02 
4.02E-0I 
l.53E»00 
1.50EW0 
8.70E-01 
3.75E-01 
1.2BE-01 
4.B7E-02 
1.I3E-02 
2.03E-03 
2.75E-04 
2.43E-05 
3.44E-04 
2.58E-08 
5.40E-O5 
2.52E-09 
3.S4E-0S 
4.04E-08 
1.75E-06 
1.75E-04 
5.25E-05 
5.25E-05 


451070 
4510B0 
451081 
451090 
451091 
451100 
451101 
451110 
451120 
451130 
451140 
451150 
451140 
451170 
451180 
451190 
451200 
451210 
451220 
451230 
441040 
441050 
441040 
441070 
441071 
441080 
441090 
441091 
441100 
441110 
441111 
441120 
441130 
441140 
441150 
441140 
441170 
441180 
441190 
441200 
441210 
441220 
441230 
441240 
441240 
471070 
471080 
471081 
471090 
471091 
471100 
471101 
471110 
4/1111 
471120 
471130 
471131 
471140 
471150 
471151 
471140 
471141 
471170 
471171 
471180 
471181 
471190 
471200 
471210 
471220 
471230 
471240 


4.40E- 

I.35E- 

1.35E- 

4.93E- 

4.93E- 

I.99E- 

1.99E- 

B.59E- 

l.UE- 

9.80E- 

4.04E- 

2.44E- 

4.22E- 

2.I4E- 

4.25E- 

4.45E- 

8.84E- 

8.44E- 

B.03E- 

4.91E- 

1.24E- 

3.73E- 

9.74E- 

1.11E- 

1.02E- 

4.37E- 

3.94E- 

3.70E- 

B.5BE- 

3.42E- 

4.59E- 

3.11E- 

7.28E- 

1.14E- 

1.20E- 

1.15E- 

4.B7E- 

3.51E- 

I.30E- 

4.29E- 

1.03E- 

2.51E- 

4.22E- 

5.32E- 

1.44E- 

0.0 

7.70E- 

7.48E- 

5.30E- 

1.34E- 

2.16E- 

2.33E- 

I.22E- 

1.07E- 

4.27E- 

9.81E- 

9.B1E- 

B.55E- 

1.39E 

I.39E- 

4.18E- 

4.ISE- 

4.03E 

4.03E- 

4.8IE 

4.81E 

7.89E 

5.B1E- 

3.18E- 

1.94E- 

8.52E 

2.87E- 


OS  7 

04  4 
04  4. 
04  3. 
04  3. 
03  I, 
03  1, 
03  5, 

02  7. 

03  9, 
03  9. 
03  S. 

03  2. 

04  4. 

05  2. 
■04  4. 

07  5, 
■08  4. 

09  4. 
10  4. 
12  1. 
■11  4, 

10  1. 
4)8  7, 

08  7. 

417  a 

04  i. 

■04  1 

05  2. 
-04  1 
04  I. 
-03  8, 
413  3. 
■02  6 
4)2  9, 

02  1 
413  9, 
413  t, 

03  3. 
■04  1 

04  2. 
■05  4. 
04  1. 
•07  3, 
4)9  3. 

0, 
12  5. 
12  S. 
■09  1 


J  1 

■08  3 

08  4. 

■04  I 

04  1. 

■04  1. 

03  1, 

■05  1 

■04  1, 

■03  4. 

4)3  3. 

■04  I. 

■04  1. 

■03  3, 

■03  3. 

■03  4. 

■03  3. 

■03  9. 

03  7. 

■03  4. 

03  2. 

■04  1, 

■04  5. 


24E-04 
58E-05 
58E-05 
17E-04 
I7E-04 
OOE-03 
OOE-03 
54E-03 
53E-03 
75E-03 
44E-03 
22E-03 
5BE-03 
(I1E-03 
11E-04 
17E-05 
10E-04 
87E-07 
82E-0B 
42E-09 
31E-12 
49E-07 
29E-08 
25E-10 
44E-10 
01E-08 
30E-04 
30E-04 
5SE-05 
24E-04 
25E-04 
99E-04 
02E-03 
39E-03 
43E-03 
19E-02 
72E-03 
38E-03 
39E-03 
14E-03 
92E-04 
88E-05 
54E-05 
03E-04 
7BE-08 
0 

40E-12 
40E-12 
35E-10 
33E-10 
70E-09 
00E-09 
58E-07 
42E-07 
70E-O4 
52E-05 
52E-05 
47E-04 
47E-04 
54E-04 
11E-03 
11E-03 
,33E-04 
33E-04 
57E-03 
58E-03 
24E-03 
45E-03 
.80E-03 
54E-03 
28E-03 
85E-04 


04  2.51E-02 
■05  2.75E-02 

05  2.75E-02 
04  2.74E-02 
04  2.74E-02 
-03  4.B4E-02 
03  4.87E-02 
-02  9.1SE-02 

02  5. 7BE-02 
■01  4.37E-02 
01  I.90E-02 
■01  7.94E-03 
01  2.85E-03 
■02  8.1OE-04 

01  I.44E-04 
-03  8.74E-04 

03  1.58E-04 

04  9.90E-0B 

05  4.28E-09 
-04  5.2BE-10 

2.53E-10 
04  2. 13E-08 

07  1.10E-04 

08  3.0BE-05 
08  1.77E-05 

08  3.24E-04 
07  2.31E-04 
07  2.31E-04 

04  3.11E-03 

05  3.94E-03 
05  3.93E-03 
03  1.38E-02 
03  2.71E-02 

02  2.9BE-02 
01  2.94E-02 
■01  2.52E-02 
■01  1.85E-02 
■01  9.22E-03 
01  1.92E-02 

01  7.93E-04 

02  1.40E-04 
•02  2.37E-05 

03  4.58E-04 
■04  8.5BE-07 

04  1.1  IE-OS 
2.20E-09 
2.14E-08 
2.15E-08 

■12  4.44E-08 
12  4.44E-08 

■10  1.19E-04 
10  1.30E-04 

09  9.54E-04 
09  9.53E-04 

05  9.04E-05 
04  2.45E-04 
•04  2.43E-04 
04  I.84E-03 
•04  2.12E-03 
04  2.10E-03 
■03  4.4BE-03 
03  4.48E-03 
■02  7.94E-03 

02  7.94E-03 
•03  1.01E-02 

03  1.0IE-02 
-01  1.58E-02 
01  1.10E-02 
-01  5.04E-03 

01  2.18E-03 
■02  9.34E-04 

02  3. 74E-04 


2.02E-03 

2.10E-02 

2.10E-O2 

4.48E-02 

4.48E-02 

B.79E-02 

8.78E-02 

1.90E-01 

1.20E-01 

9.89E-02 

4.BBE-02 

2.21E-02 

7.59E-03 

2.40E-03 

7.33E-04 

1.89E-04 

3.22E-05 

4.31E-04 

4.37E-07 

2.09E-08 

0.0 

1.47E-04 

1.4BE-0B 

5.30E-07 

4.80E-07 

1.35E-04 

7.37E-04 

7.37E-04 

5.13E-03 

4.02E-03 

5.90E-03 

1.89E-02 

3.44E-02 

3.40E-02 

4.10E-02 

3.04E-02 

2.31E-02 

1.79E-02 

1.05E-O2 

4.30E-03 

1.3SE-03 

3.40E-04 

4.95E-05 

2. 14E-05 

8.23E-07 

4.13E-12 

4.45E-09 

4.44E-09 

I.44E-04 

2.95E-07 

1.74E-04 

1.93E-04 

1.23E-05 

1.18E-05 

8.9BE-05 

2.01E-04 

1.99E-04 

9.4BE-04 

1.33E-03 

1.33E-03 

2.55E-03 

2.55E-03 

4.45E-03 

4.45E-03 

8.14E-03 

8.14E-03 

1.99E-02 

1.B1E-02 

1.27E-02 

7.08E-03 

2.93E-03 

2.01E-03 
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471250 
471240 
4712B0 
4B1090 
491100 
481110 
481111 
4B1120 
461130 
131131 
461140 
4B1150 
481151 
481140 
481170 
481171 
481180 

48  mo 

♦81 191 

481200 
481210 
481220 
481230 
481240 
481250 
481260 
481270 
461280 
4B1290 
481300 
481310 
481320 
491130 
491131 


5.65E-0S 

9.UE-04 

5.03E-08 

0.0 

2.45E-12 

2.01E-10 

1.89E-I0 

2.17E-OB 

3.08E-07 

3.0BE-07 

8.Z2E-04 

9.3BE-05 

3.84E-05 

7.81E-06 

8.08E-04 

8.08E-04 

4.57E-03 

4.04E-03 

4.04E-03 

1.25E-02 

1.44E-02 

1.98E-02 

2.09E-02 

I.74E-02 

1.07E-02 

4.9BE-05 

1.84E-03 

2.73E-04 

2.42E-05 

4.24E-05 

2.51E-06 

4.83E-0B 

2.23E-11 

2.13E-U 


39E-04  I. 
32E-05  3. 
3BE-04  1, 
0  0. 
I3E-12  0. 
07E-U  0. 
93E-I1  0. 
25E-04  1. 
47E-08  8. 
44E-05  B. 
14E-07  4, 
04E-05  I. 
64E-04  I. 
97E-05  4. 
94E-04  3. 
94E-06  2 
3BE-03  3. 
23E-03  9 
23E-03  9, 
71E-03  5 
21E-02  1, 
39E-02  2, 
39E-02  2. 
41E-02  3, 
7BE-03  2. 
14E-03  1. 
.  IOE-03  8, 
B2E-03  3. 
.04E-04  1. 
10E-04  I, 
70E-05  3. 
I4E-04  2, 
•  90E-13  0. 
53E-I2  0. 


12E-02  1 
30E-03  3. 
25E-04  5, 


0  2. 
9IE-U  4. 
OSE-10  1, 
08E-10  4 
59E-08  I. 
41E-04  7. 
40E-06  4. 
22E-05  4 
89E-04  1. 
44E-04  1 
83E-05  7. 
I4E-03  I 
14E-03  I. 
89E-02  2. 
35E-01  2. 
24E-01  2 
94E-01  2. 
17E-01  1 
32E-01  I, 
72E-01  9. 
20E-02  4. 
15E-02  1. 
81E-02  2. 
43E-02  2. 
05E-03  1 
94E-04  3. 
0  3. 
0     3. 


40E-04  9.59E-04 
19E-05  4.28E-04 
01E-07  3.32E-05 
87E-I2  1.25E-11 
10E-10  2.84E-10 
38E-09  2.29E-09 
21E-09  2.13E-09 
48E-08  4.43E-08 
51E-06  2.52E-07 
19E-07  2.52E-07 
44E-05  3.01E-04 
24E-05  1.89E-05 
29E-05  1.14E-05 
92E-04  1.19E-04 
I5E-03  2.48E-04 
15E-03  2.48E-04 
41E-03  2.50E-03 
11E-03  3.34E-03 
11E-03  3.34E-03 
4IE-02  1.30E-02 
89E-02  1.91E-02 
61E-02  2.24E-02 
32E-02  2.36E-02 
88E-02  2.45E-02 
42E-02  2.44E-02 
41E-03  2.51E-02 
86E-03  2.97E-02 
19E-03  1.27E-02 
42E-04  3.82E-03 
52E-04  1.21E-03 
53E-05  1.42E-04 
44E-07  7.51E-04 
34E-11  7.18E-12 
17E-U  4.87E-12 


491140 
491141 
491150 
491151 
491160 
491161 
491170 
491171 
491190 
491191 
491190 
491191 
491200 
491201 
491210 
491211 
491220 
491221 
491230 
491231 
491240 
491250 
491251 
491260 
491270 
491271 
491280 
491290 
491300 
491310 
491320 
491330 
491340 


23E-10  1 
94E-10  1 
02E-0B  7. 
99E-08  7. 
B1E-10  2, 
81E-10  2. 
99E-06  6. 
99E-06  6, 
73E-05  4. 
73E-05  4. 
55E-04  3. 
55E-04  3, 
30E-04  1. 
30E-04  I, 
32E-03  6. 
32E-03  9 
03E-03  1. 
04E-03  I, 
56E-03  3. 
54E-03  3. 
60E-02  I. 
09E-O2  7. 
09E-02  7, 
51E-02  3. 
10E-02  2. 
10E-02  2. 
■55E-02  6, 
19E-02  3. 
.15E-02  7 
06E-03  2. 
.16E-04  6 
47E-04  3, 
.06E-07  6 


80E-11  0. 
76E-U  0. 
03E-10  5, 
03E-10  1. 
09E-08  2. 
09E-O8  2, 
33E-10  1. 
33E-10  I, 
15E-04  2. 
15E-04  2. 
71E-05  3, 
71E-05  3. 
B5E-04  2. 
85E-04  2 
28E-04  1. 
58E-04  1 
55E-03  7, 
55E-03  7 
21E-03  2, 
13E-03  2 
35E-02  1. 
94E-03 
94E-03  9. 
99E-02  3. 
49E-02  2, 
50E-02  2. 
20E-02  3. 
94E-02  3. 
34E-02  3. 
44E-02  1. 
42E-03  5. 
95E-04  8. 
96E-06  6, 


1. 

i 

03E-11  5. 
62E-03  2 
65E-09  3. 
65E-09  3 
12E-07  4. 
I2E-07  4 
32E-09  4. 
15E-09  4 
42E-05  4. 
42E-05  4 
94E-04  1. 
94E-04  1. 
74E-03  2. 
74E-03  2, 
06E-03  4. 
04E-03  4. 
24E-02  1. 
24E-02  I, 
10E-01  3. 
48E-02  2, 
49E-02  3, 
30E-01  8 
05E-01  5. 
05E-01  5. 
44E-01  7 
94E-01  4. 
42E-01  4 
83E-01  1. 
79E-02  9 
93E-03  3, 
09E-04  7 


32E-09  1. 
28E-09  1 
34E-08  2. 
21E-0B  2. 
47E-07  3. 
47E-07  3 
96E-06  4. 
96E-06  4 
B7E-05  5. 
B7E-05  5. 
58E-06  3. 
58E-04  3. 
04E-03  1, 
04E-03  1. 
91E-03  5, 
74E-03  5. 
20E-03  1. 
23E-03  1 
07E-02  3. 
07E-O2  3 
24E-02  I. 
99E-02  I 
OOE-02  1. 
07E-02  5 
24E-02  4, 
24E-02  6 
10E-02  I 
84E-02  1 
97E-02  1 
05E-02  3. 
64E-04  7 
42E-05  5. 
21E-07  1 


05E-10 
03E-10 
45E-09 
45E-09 
51E-08 
51E-08 
40E-07 
40E-07 
76E-06 
76E-06 
64E-05 
64E-05 
70E-04 
70E-04 
64E-04 
64E-04 
44E-03 
44E-03 
84E-03 
84E-03 
17E-02 
1BE-02 
I8E-02 
04E-02 
53E-02 
53E-02 
.37E-01 
40E-01 
01E-01 
95E-02 
15E-03 
.88E-04 
.  79E-05 


501150 
501160 
501170 
501171 
501  ISO 
501190 
501191 
501200 
501210 
501211 
501220 
501230 
501231 
501240 
501250 
501251 
501260 
501270 
501271 
501280 
501290 
501291 
501300 
501310 
501320 
501330 
501340 
501350 
501340 
511210 
511220 
511221 
511230 
511240 
511241 


99E-10 
0 

27E-09 
04E-09 
37E-07 
15E-07 
15E-07 
18E-05 
47E-05 
43E-05 
15E-04 
4BE-03 
48E-03 
30E-02 
03E-O2 
03E-02 
77E-01 
.58E-01 
58E-01 
.82E-01 
73E-01 
.73E-01 
41E-01 
.OOE-01 
19E-01 
.62E-03 
81E-04 
.21E-05 
96E-07 
.04E-08 
29E-07 
.52E-07 
34E-05 
.81E-05 
81E-05 


0.0 

2.B5E-12 

0.0 

0.0 

5.30E-O9 

7.01E-08 

7.01E-08 

1.94E-04 

8. 75E-04 

8.7BE-06 

1.04E-04 

1.42E-03 

2.94E-04 

2.29E-03 

1.04E-02 

5.15E-03 

2.4OE-02 

4.72E-02 

5.04E-02 

3.04E-01 

2.03E-O1 

3.30E-01 

8.72E-01 

9.59E-01 

5.84E-0I 

1.49E-01 

1.19E-02 

1.24E-03 

5.43E-05 

I.92E-05 

4.4BE-0B 

4.72E-08 

I.I4E-06 

4.94E-04 

4.7OE-06 


O.O 

0.0 

4.41E-12 

4.22E-12 

0.0 

1.32E-08 

1.32E-0B 

4.37E-07 

5.24E-04 

5.24E-06 

1.12E-04 

4.74E-04 

4.74E-04 

4.09E-03 

1.14E-01 

1.32E-02 

1.13E-01 

1.94E-01 

1.90E-01 

8.22E-01 

5.59E-01 

5.44E-01 

1.73E»00 

1.98E>00 

1.43E*00 

7.49E-01 

1.79E-01 

2.34E-02 

2.45E-03 

7.29E-10 

1.03E-08 

1.07E-08 

5.09E-07 

4.55E-06 

4.54E-06 


5.51E-10 
I.09E-10 
2.22E-09 
2.07E-09 
1.37E-07 
I.96E-09 
1.96E-09 
2.44E-05 
8.57E-05 
4.79E-05 
9.44E-04 
1.6BE-03 
1.68E-03 
9.97E-03 
3.72E-02 
1.92E-02 
1.13E-01 
1.71E-01 
1.7IE-01 
5.75E-01 
4.  I6E-01 
4.I6E-01 
I.19E*00 
B.01E-01 
2.62E-01 
3.75E-02 
3.04E-03 
1.22E-04 
4.35E-04 
2.54E-05 
9.59E-07 
1.00E-04 
1.58E-05 
4.89E-05 
4.B9E-05 


0.0 

4.02E-12 

7.20E-11 

4.82E-11 

5.52E-09 

4.34E-0B 

4.34E-08 

1.03E-04 

4.14E-06 

4.14EH16 

5.04E-05 

1.9OE-04 

1.90E-04 

9.07E-04 

1.90E-03 

1.90E-O3 

1.77E-02 

4.93E-02 

4.97E-02 

2.3BE-01 

2.97E-01 

2.97E-01 

1. 1  IE tOO 

1.30EM0 

7.3aE-01 

2.17E-OI 

2.69E-02 

1.70E-03 

8.10E-05 

1.45E-09 

1.05E-08 

1.10E-08 

5.08E-07 

9. 70E-07 

9.74E-07 


511250 
511240 
511241 
511270 
511280 
511281 
511290 
511300 
511301 
511310 
511320 
511321 
511330 
511340 
511341 
511350 
511360 
511370 
511380 
511390 
521220 
521230 
521231 
521240 
521250 
521251 
521260 
521270 
521271 
521280 
521290 
521291 
521300 
521310 
521311 


2.2OE-03 
B.41E-03 
8.40E-03 
1.31E-01 
1.84E-01 
I.84E-01 
8.B1E-01 
6.15E-01 
6.15E-01 
1.65E»O0 
4.42E-01 
4.42E-01 
4.28E-01 
4.8OE-02 
4.81E-02 
1.47E-02 
1.47E-03 
8.23E-05 
2.59E-04 
1.51E-07 
1.58E-10 
3.14E-09 
3.31E-09 
2.05E-07 
4.77E-04 
4.77E-06 
2.09E-04 
2.2BE-03 
2.2BE-03 
3.B2E-02 
1.24E-0I 
1.24E-01 
2.98E-01 
4.27E-01 
1.03E»00 


1.20E-04 
9.52E-04 
5.02E-04 
7.46E-03 
1.60E-02 
I.2IE-02 
1.14E-01 
2.1BE-0I 
3.02E-01 
1.59Et00 
1.08E«00 
1.07E*00 
2.08E»00 
2.58E-01 
2.5BE-01 
I.94E-01 
2.99E-02 
2.13E-03 
1.32E-04 
5.87E-04 
B.  79E-12 
1.42E-10 
1.48E-10 
1.05E-0B 
1.25E-04 
1.3BE-07 
5.39E-04 
5.45E-05 
8.93E-05 
5.15E-04 
1.48E-02 
1.2OE-02 
4.59E-02 
1.19E-0I 
1.90E-01 


I.10E-04  8. 
5.30E-03  3. 
6.44E-04  3. 
1.34E-02  4. 
4.65E-02  .. 
4.65E-02  9. 
1.20E-01  5- 
2.2BE-01  5. 
2.28E-01  5, 
l.25E»O0  2 
I.16E«00  I 
1.I6E»00  I. 
2.81E+00  1. 
9.08E-OI  1. 
9.08E-01  1. 
6.82E-01  4. 
2.04E-01  5. 
4.70E-02  3 
6.96E-03  I. 
5.43E-04  8 
0.0  4. 

1.27E-11  3 
1.31E-11  3. 
1.35E-09  1 
2.40E-08  9 
2.40E-08  8 
I.62E-06  4 
6.29E-05  4 
3.04E-05  4 
1.54E-03  9 
4.89E-03  3 
3.12E-03  3 
2.18E-02  1 
B.46E-02  4 
1.80E-01  4 


34E-04  1.B6E-05 
11E-03  1.03E-04 
IOE-03  1.03E-04 
51E-02  2.73E-03 
37E-02  B.25E-03 
35E-02  B.26E-03 
52E-01  1.03E-O1 
37E-01  2.43E-01 
37E-0I  2.43E-01 
04E«O0  l.54E*00 
05EW0  1.23E»00 
05E»0O  1.23E»00 
08E»OO  2.30EMW 
5BE-01  5.19E-01 
58E-0I  5.19E-01 
45E-02  2.33E-01 
60E-03  3.B6E-02 
99E-04  3.42E-03 
57E-05  2.0OE-04 
.02E-07  7.53E-06 
26E-10  0.0 
,75E-09  3.23E-11 
B6E-09  3.34E-11 
.04E-07  4.21E-10 
50E-07  4.73E-09 
.51E-07  4.73E-09 
23E-05  2.40E-07 
.09E-O4  3.79E-06 
09E-04  3.79E-06 
.35E-03  1.44E-04 
.02E-02  I.27E-03 
.02E-O2  1.27E-03 
62E-01  3.34E-02 
51E-01  1.56E-01 
53E-01  1.59E-01 
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521320 

521330 
521331 
521340 
521350 
521340 
521370 
521380 
521390 
521400 
521410 
521420 
531270 
531280 
531290 
531300 
531301 
531310 
531320 
531330 
531331 
531340 
551341 
531350 
531340 
531341 
531370 
531380 
531390 
531400 
531410 
531420 
531430 
531440 
541280 
541290 
541291 
541300 
541310 
541311 
541320 
541330 
541331 
541340 
541341 
541350 
541351 
541340 
541370 
54I3B0 
541390 
541400 
541410 
541420 
541430 
541440 
541450 
541440 
541470 
551330 
551340 
551341 
551350 
551351 
551340 
551370 
551380 
551381 
551390 
551400 
551410 
551420 


3.09E>00 
I.I5E»00 
3.02E*OO 
2.92E*00 
1.09EtOO 
3.73E-01 
7.47E-02 
7.44E-03 
1.47E-03 
2.29E-05 
4.07E-07 
8.38E-09 
4.55E-04 
4.98E-05 
2.22E-03 
2.71E-03 
1.44E-03 
4.43E-02 
2. 75E-01 
8.77E-01 
4.71E-01 
1.4BE*00 
1.08E»00 
3. 75E»00 
1.75E*00 
l.lOEtOO 
I.BOEtOO 
5.55E-01 
3.32E-01 
1.47E-02 
I.25E-03 
7.28E-05 
1.71E-04 
5.05E-OB 
4.73E-05 
1.08E-04 
9.72E-07 
2.43E-04 
4.29E-05 
4.29E-05 
2.35E-03 
1.53E-02 
4.09E-02 
1.49E-01 
1.27E-01 
5.38E-0I 
7.97E-01 
3.25E*00 
4.19EWO 
3.8IE»00 
2.82EtO0 
1.34E»00 
3.2BE-01 
4.23E-02 
4.20E-03 
4.39E-04 
8.18E-04 
1.09E-07 
9.34E-10 
3.49E-05 
5.95E-04 
5.94E-04 
I.05E-02 
1.05E-02 
1.I2E-01 
4.78E-01 
4.39E-01 
7.39E-0I 
2.49EM10 
3.37E»00 
2.72E*0O 
l.35EtOO 


1.54EW0  9. 
1.32E*00  1. 
2.8BE»O0  I. 
4. 18E400  4, 
3.  HE.™  3. 
I.S5E»00  2. 
4.20E-01  I. 
8.72E-02  4. 
1.30E-02  1. 
1.21E-03  2, 
4.19E-05  I. 
8.03E-07  I. 
8.04E-08  1, 
1 .  I8E-05  5. 
1.80E-04  5, 
1.44E-04  1. 
7.B7E-05  1. 
4. 15E-03  8, 
2.04E-02  8. 
1.45E-01  4. 
1.29E-01  4, 
4.57E-01  3. 
4.52E-0I  3. 
2.98E*00  1. 
1.19E«00  1. 
I.95EMJ0  1. 
2.84E<00  2. 
1.57E>00  2. 
7.23E-01  I. 
2.15E-01  4. 
3.08E-02  1. 
2.23E-03  3. 
9.08E-05  2. 
3.42E-04  2. 
9.79E-07  2. 
2.52E-07  7, 
5.82E-09  I, 
4.91E-08  4, 
1.04E-04  3. 
1.04E-04  2. 
9.45E-05  4 
8.79E-04  3, 
2.47E-03  9 
2.55E-02  7. 
2.3BE-02  7 
9. 7BE-02  7. 
1.70E-01  1 
1.24E»00  4, 
2.87E«O0  1 
4.54E*00  1. 
4.35E»00  2 
3.4OEM0  3. 
I.15E»00  1 
3.B0E-01  I, 
5.20E-02  2 
4.57E-03  7. 
1.48E-04  1. 
1.38E-05  7 
2.33E-07  7, 
4.44E-05  1 
1.38E-05  5. 
2.72E-05  5 
9.0IE-04  I, 
4.25E-04  1 
7.24E-03  1 
1.25E-01  2 
3.01E-01  2 
2.4BE-01  4 
1.31E*00  B. 
2.23E»0O  1 
3.24E*00  2, 
2.44E»00  2 


01E-01  2, 
30EtOO  2. 
29E»00  2. 
24E*00  3, 
94E»00  I, 
B0E»O0  7. 
57Et00  I. 
33E-01  2. 
57E-01  3. 
32E-02  1. 
15E-03  3. 
45E-04  S. 
84E-04  3. 
83E-07  9. 
44E-03  1. 
50E-05  4. 
50E-05  1 
34E-04  1. 
36E-02  1 
3OE-02  8, 
22E-02  3. 
11E-0I  2. 
OOE-01  1 
376*00  4. 
15£*00  1 
1 5E+00  1. 
44E*00  1 
43E«00  8. 
45E100  3, 
74E-01  5. 
43E-01  4, 
74E-02  2. 
75E-03  1 
54E-04  3. 
42E-I1  8, 
18E-04  3. 
49E-11  2, 
19E-09  1. 
I2E-04  8, 
32E-07  8. 
78E-05  8, 
32E-03  I. 
05E-03  3 
91E-03  9. 
23E-03  9 
B5E-02  4, 
04E-01  4, 
B9E-01  2. 
13£*00  3. 
99Et00  3. 
71E»00  3, 
22E*00  1. 
97E*00  4 
25E»00  9. 
71E-01  1. 
14E-02  1. 
10E-02  I. 
38E-04  3, 
38E-05  5. 
48E-05  I 
94E-04  2. 
94E-04  2, 
89E-04  4. 
4BE-04  3, 
30E-O2  I. 
.08E-01  7. 
53E-01  5. 
40E-02  4, 
43E-0I  1. 
22EtOO  2. 
I7EM70  2. 
IBE.OO  1 


77E»00  l.44E»00 
29E>00  l.97E»00 
2SEW0  1.97E»00 
43EtOO  5.71E»00 
99£»00  4.02EM0 
72E-01  2.08E«0 
47E-01  5.92E-01 
09E-02  1.12E-01 
25E-03  1.40E-02 
49E-04  1.1IE-03 
55E-04  3.82E-05 
44E-08  1.48E-04 
75E-07  5.43E-I0 
99E-05  3.19E-0B 
90E-04  1.40E-04 
38E-03  3.18E-05 
29E-03  3.1BE-05 
19E-02  2.0IE-03 
38E-01  4.40E-02 
8BE-0I  1.31E-01 
37E-01  1.12E-01 
13E«00  4.37E-01 
I1E»00  4.37E-OI 
40E+00  2.45E*00 
48E»00  l.94E»00 
48E»00  I.94E+00 
97E»00  3.I4E»00 
21E-01  l.72EtOO 
20E-01  4.59E-01 
10E-02  1.47E-01 
42E-03  2.37E-02 
81E-04  2.44E-03 
39E-05  1.44E-04 
84E-07  4.23E-04 
71E-04  0.0 
07E-0B  4.84E-I1 
81E-08  4.41E-I1 
28E-04  1.22E-08 
21E-04  4.45E-07 
21E-04  4.45E-07 
47E-04  I.4OE-04 
02E-O2  1.04E-03 
52E-02  1.04E-03 
31E-02  2.0SE-02 
31E-02  2.08E-02 
41E-01  9.44E-02 
54E-01  1.33E-01 
5 1 E tOO  l.24E*00 
74E*00  2.84E»00 
9aE«00  4.15E«00 
09E»00  4.33E*O0 
B1E»00  3.IOE*00 
92E-01  l.32E»00 
53E-02  4.22E-01 
40E-02  7.94E-02 
2BE-03  9.87E-03 
39E-04  4.45E-04 
75E-04  2.5BE-05 
52E-08  3.99E-07 
52E-05  4.27E-07 
22E-04  1.77E-05 
23E-04  1.77E-05 
07E-03  4.49E-04 
52E-03  3.92E-04 
11E-01  1.74E-02 
54E-01  9.45E-02 
42E-01  1.98E-01 
04E-01  2.01E-01 
90E»00  1.I5EM10 
-00  2.32E*00 
83E*00  2.52£t00 
51E»00  2.24E*0O 


551430 
551440 
551450 

551440 
551470 
5514B0 
551500 
541340 
541350 
541351 
541340 
541370 
541371 
541390 
541390 
541400 
541410 
541420 
541430 
541440 
541450 
541440 
541470 
5414BO 
541490 
541500 
541520 
57I3B0 
571390 
571400 
571410 
571420 
571430 
571440 
571450 
571440 
571470 
57I4BO 
571490 
571500 
571510 
571520 
571530 
571540 
581400 
581410 
581420 
581430 
581440 
581450 
581440 
581470 
591490 
591490 
591500 
591510 
591520 
581530 
581540 
581550 
581540 
581570 
591410 
591420 
591421 
591430 
591440 
591441 
591450 
591440 
591470 
591480 


42E-01 
50E-02 
74E-03 
34E-04 
08E-05 
15E-07 
99E-U 
93E-07 
71E-05 
52E-05 
29E-04 
84E-03 
94E-03 
99E-02 
12E-0I 
44E»00 
41£*00 
5IE»00 
B7E»00 
17E»00 
07E-01 
04E-01 
02E-02 
84E-04 
48E-05 
13E-04 
I7E-1I 
30E-04 
70E-03 
27E-02 
74E-01 
22E-0I 
SiEtOO 
94E»00 
79£»00 
41E-01 
98E-01 
99E-02 
98E-03 
40E-04 
75E-05 
05E-04 
.5OE-0B 
11E-10 
44E-03 
00E-03 
.24E-02 
14E-02 
.14E-01 
21E-01 
,40E*00 
24E*00 
J3E-0I 
2IE-01 
.90E-O2 
24E-02 
18E-03 
.94E-05 
51E-04 
■09E-08 
14E-10 
•89E-12 
40E-07 
.98E-04 
99E-04 
.5IE-04 
31E-04 
.81E-04 
43E-02 
.01E-02 
11E-01 
, 74E-01 


47E»00  1. 
11E-01  1 
19E-02  3, 
10E-03  7. 
90E-O4  I. 
91E-05  1, 
29E-09  1 
37E-09  8. 
47E-07  5, 
01E-07  5. 
10E-05  9. 
58E-04  1. 
58E-04  4. 
44E-03  I. 
71E-02  1 
29E-01  8, 
44E*00  4 
93E*0O  1. 
73E+00  2. 
93E*00  2. 
92E»O0  2, 
48E-0I  I 
30E-01  4, 
52E-02  1. 
27E-04  2. 
32E-05  2. 
89E-08  7. 
78E-05  3. 
HE-OS  I. 
04E-03  2. 
94E-02  3. 
OOE-01  2. 
OIE-01  I 
I  IE*0O  3. 
49E*00  7. 
42E*00  I 
37E-01  I. 
42E-0I  8. 
02E-02  3 
01E-02  1. 
95E-04  1 
98E-05  2, 
.44E-04  3 
93E-0S  1. 
■35E-04  5. 
43E-05  3. 
.  13E-04  9. 
85E-02  1. 
09E-02  9, 
30E-01  5. 
.73E-01  2, 
14E»00  5. 
,17EtO0  9, 
10E-01  1. 
,97E-01  7. 
59E-02  3. 
34E-02  1, 
■  31E-03  3. 
09E-05  4. 
.31E-04  4 
20E-08  4. 
.70E-09  5 
.44E-10  7. 
.05E-08  3 
05E-08  3. 
•  95E-04  2 
25E-05  4, 
.42E-05  3 
.32E-04  1. 
.54E-03  1 
38E-02  I. 
.61E-01  5. 


44E»00 
01E+00 

41E-01 

37E-02 
95E-02 
43E-03 
45E-04 
97E-10 
ilE-Ofl 
OOE-08 
15E-04 
37E-04 
44E-05 
50E-03 
34E-01 
33E-02 
52E-01 
!4£>00 
25E*00 
43E»00 
39E*00 
41E»00 
19E-01 
79E-0I 
70E-O2 
27E-03 
04E-04 
OOE-07 
44E-05 
54E-03 
30E-03 
93E-02 
17E-01 
42E-01 
44E-01 
24E»00 
20EW0 
50E-01 
43E-01 
OOE-01 
72E-02 
54E-03 
12E-04 
49E-05 
33E-04 
05E-04 
09E-05 
59E-03 
22E-03 
02E-02 
04E-01 
34E-0I 
53E-01 
01E»00 
73E-OI 
44E-01 
23E-01 
54E-02 
94E-03 
50E-04 
54E-05 
37E-04 
93E-09 
44E-09 
47E-09 
80E-07 
04E-04 
47E-04 
13E-04 
30E-03 
09E-02 
74E-02 


4.UE-01 
1.44E-01 
3.98E-02 
3.4BE-03 
2.13E-04 
4.74E-04 
1.45E-09 
1.08E-07 
3.41E-04 
3.24E-04 
2.32E-04 
1.57E-03 
1.47E-03 
2.34E-02 
3.41E-01 
7.84E-01 
2.02E»00 
3.20E»00 
3.32E»00 
2.39E*00 
1.28E»00 
3.90E-01 
4.94E-02 
B.21E-03 
5.41E-04 
2.49E-05 
8.19E-09 
I.77E-05 
3.32E-04 
2.30E-02 
3.  BEE -02 
1.81E-01 
5.B4E-01 
1.18£»00 
1.45EtO0 
1.33E+0O 
7.19E-01 
2.40E-01 
5.53E-02 
B.49E-03 
7.29E-04 
3.39E-05 
I.02E-04 
3.15E-08 
1.09E-03 
9.09E-05 
1.39E-03 
1.31E-02 
E.19E-02 
3.04E-01 
7.91E-01 
1.20£*00 
1.20E»00 
7.29E-01 
3.52E-01 
9.43E-02 
1.47E-02 
1.37E-03 
1.I0E-04 
8.05E-04 
5.99E-07 
1.84E-08 
4.77E-09 
1.31E-07 
1.3OE-07 
9.17E-04 
2.08E-04 
8.3BE-05 
2.01E-03 
1.45E-02 
7.84E-02 
2.24E-01 


1.19EW0 
4.52E-01 
9.37E-02 
I.30E-02 
8.54E-04 
3.01E-05 
1.24E-OB 
2.94E-09 
1.51E-07 
1.51E-07 
1.79E-05 
1.B3E-04 
1.83E-04 
5. 79E-03 
4.57E-02 
2.54E-01 
9.81E-01 
2.03£»0O 
2.92£»00 
2.89E»00 
1.70E*00 
7.44E-01 
1.40E-01 
2.20E-02 
1.88E-03 
1.09E-04 
B.58E-0B 
1.49E-04 
4.90E-05 
5.84E-03 
9.19E-03 
4.74E-02 
2.75E-01 
7.44E-01 
1.25EtOO 
1.44E.0O 
1.02E*00 
4.35E-01 
I.18E-01 
2.25E-02 
2.44E-03 
1.92E-04 
8.29E-04 
2.30E-07 
I.1BE-05 
2.41E-05 
2.44E-04 
3.27E-03 
2.91E-02 
I.40E-01 
5.00E-01 
1.04E400 
I.31E*00 
I.OOEtOO 
5.43E-01 
1.94E-01 
4.44E-02 
4.O7E-03 
5.45E-04 
3.48E-05 
2.24E-04 
8.B3E-OB 
2.74E-09 
1.23E-08 
1.23E-08 
2.49E-04 
1.47E-05 
1.47E-05 
4.54E-04 
5.42E-03 
4.40E-O2 
1.40E-01 
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APPENDII  6.3   FILE:FISS_IIB   P'fiiE:  4 

591490  3.43E-01  2.89E-0I  I.42E-01  4.53E-OI  3.22E-01 

591500  2.70E-0I  3.00E-01  3.26E-OI  5.09E-01  5.26E-OI 

591510  1.18E-01  2.24E-OI  3.B0E-01  3.87E-01  4.89E-0I 

591520  3.45E-02  1.O8E-01  2.75E-01  1.84E-01  3.04E-OI 

591530  5.50E-03  3.13E-02  I.44E-01  4.97E-02  1.20E-01 

591540  4.77E-04  5.53E-03  S.44E-02  l.UE-02  3.22E-02 


591550  3.15E-05  4.84E-04  1.70E-02  1.75E-03  5.B5E-03 

591540  1.42E-04  5.08E-05  3.93E-03  2.B7E-04  1.01E-03 

591570  4.54E-0B  3.10E-04  7.72E-04  2.41E-05  1.14E-04 

591580  I.40E-08  1.19E-07  4.44E-05  1.17E-04  5.84E-04 

591590  3.82E-12  1.71E-09  2.71E-04  2.B7E-08  1.59E-07 


401420 
401430 
401440 
401450 
401440 
401470 
401480 
401490 
401500 
401510 
401520 
401530 
401540 
401550 
401540 
401570 
401580 
401590 
401400 
401410 
411470 
411480 
411491 
411490 
411500 
411510 
41 1520 
411521 
411530 
411540 
411541 
611550 
611540 
411570 
611580 
611590 
611600 
611410 
611620 
421470 
421480 
421490 
421500 
421510 
421520 
421530 
421540 
421550 
621560 
621570 
4.21590 
621590 
621600 
621610 
621620 


77E-10 
44E-08 
38E-06 
27E-05 
74E-04 
62E-03 
74E-02 
50E-02 
42E-01 
82E-01 
48E-01 
77E-02 
76E-02 
44E-03 
22E-04 
13E-05 
69E-05 
75E-08 
79E-I0 
21E-11 
33E-06 
47E-07 
79E-05 
79E-04 
59E-03 
12E-02 
29E-02 
29E-02 
36E-02 
16E-02 
I6E-02 
22E-02 
B4E-03 
52E-03 
69E-04 
38E-05 
32E-07 
37E-08 
52E-09 
02E-10 
80E-OB 
98E-07 
35E-04 
39E-05 
4IE-04 
52E-03 
32E-03 
43E-03 
40E-03 
44E-03 
92E-03 
65E-04 
37E-05 
62E-06 
57E-07 


44E-11 
.B3E-10 
75E-04 
.O4E-07 
27E-05 
.94E-04 
07E-03 
81E-02 
34E-02 
, 19E-01 
45E-01 
.17E-01 
10E-02 
.72E-02 
50E-03 
94E-04 
44E-05 
.08E-04 
47E-07 
.B4E-09 
73E-07 
. 10E-04 
42E-07 
,  12E-05 
04E-O4 
.77E-03 
47E-03 
47E-03 
,45E-02 
4OE-03 
.40E-03 
57E-02 
04E-03 
47E-03 
04E-03 
43E-04 
94E-05 
02E-07 
47E-08 
01E-04 
01E-11 
53E-09 
82E-07 
SOE-04 
45E-05 
34E-04 
.OBE-03 
59E-03 
34E-03 
53E-03 
58E-03 
04E-04 
55E-04 
03E-05 
92E-04 


0.0 

4.91E-12 

1.05E-05 

2.95E-0B 

9.47E-07 

3.I1E-05 

5.53E-04 

4.93E-03 

2.98E-02 

I.08E-01 

1.54E-01 

I.90E-01 

1.49E-01 

9.24E-02 

4.44E-02 

1.96E-02 

3.58E-03 

4.83E-04 

4.50E-05 

4.57E-06 

9.06E-05 

7.02E-09 

7.O2E-08 

4.51E-06 

9.40E-05 

B.93E-04 

2.04E-O3 

2.04E-O3 

1.34E-02 

1.22E-02 

1.22E-02 

3.11E-02 

3.49E-02 

2.94E-02 

1.22E-02 

4.25E-03 

8.94E-04 

I.92E-04 

1.54E-05 

0.0 

3.44E-12 

4.I8E-10 

3.24E-08 

3.22E-04 

1.45E-05 

I.55E-04 

7.48E-04 

2.22E-03 

4.04E-03 

1.09E-02 

1.27E-02 

1.09E-02 

5.58E-03 

2.48E-03 

S.48E-04 


4.58E-12 
4.84E-10 

1.09E-07 
1.20E-04 
3.91E-05 
4.51E-04 
6.00E-03 
3.13E-02 
1.27E-01 
2.94E-01 
3.75E-01 
2.45E-01 
I.42E-01 
6.04E-02 
2.09E-02 
4.85E-03 
6.45E-04 
4.93E-05 
3. 16E-04 
1.03E-07 
2.10E-07 
2.07E-04 
2.07E-04 
1.04E-04 
1.40E-03 
7.00E-O3 
I.53E-02 
1.53E-02 
5.99E-02 
4.94E-02 
4.94E-02 
8.8BE-02 
4.27E-02 
3.25E-02 
1.08E-02 
2.33E-03 
3.99E-04 
3.98E-05 
5.04E-07 
2.42E-12 
2.74E-10 
1.91E-08 
B.54E-07 
2.47E-05 
3.29E-04 
2.0OE-O3 
1.03E-02 
2.51E-02 
3.80E-02 
4.04E-02 
2.93E-02 
1.4IE-02 
4.55E-03 
1.79E-03 
1.40E-04 


0.0 

I.20E-10 

2.94E-09 

1.92E-07 

4.90E-04 

2.45E-04 

2.44E-03 

I.8OE-02 

8.31E-02 

2.19E-01 

3.53E-01 

3.41E-01 

2.40E-01 

1.21E-0I 

5.15E-02 

1.57E-02 

2.44E-03 

2.1IE-04 

9.24E-04 

2.80E-07 

2.35E-08 

5.43E-07 

5.43E-07 

2.49E-05 

3.94E-04 

2.97E-03 

7.71E-03 

7.71E-03 

4.39E-02 

4.21E-02 

4.22E-02 

9.47E-02 

9.35E-02 

4.75E-02 

2.87E-02 

7.29E-03 

9.73E-04 

9.29E-05 

3.73E-04 

0.0 

4.29E-11 

3.48E-09 

I.95E-07 

4. 19E-04 

8.19E-05 

7.27E-04 

4.18E-43 

I.25E-02 

2.80E-02 

4. 99E-02 

5.35E-02 

3.42E-02 

1.32E-02 

3.59E-03 

4.32E-04 


421430 
421440 
621650 
631510 
631520 
631521 
631530 
431540 
431550 
431540 
431570 
631580 
631590 
431400 
431410 
431420 
431430 
431440 
431450 
441520 
641530 
641540 
641550 
641560 
641570 
6415B0 
641590 
641600 
441610 
641620 
641630 
641440 
441450 
451590 
451400 
451410 
451420 
451421 
451430 
451440 
451450 
441400 
661610 
641420 
441430 
441440 
661650 
641451 
441440 
471450 
471440 
471441 
481440 
481470 
481471 


4.54E-08 
2.10E-09 
3.97E-U 
1.53E-0B 
2.04E-07 
2.04E-07 
4.24E-04 
3.81E-05 
1.41E-04 
4.33E-04 
S.37E-04 
3.17E-04 
5.74E-04 
2.08E-04 
S.02E-05 
1.05E-05 
I.84E-04 
2.45E-07 
1.59E-0B 
2.49E-U 
I.42E-09 
2. 90E-0B 
3.97E-07 
3.21E-04 
I.74E-05 
7.45E-04 
1.2IE-04 
I.14E-04 
1.11E-04 
2.32E-05 
l.OBE-05 
4.23E-D4 
7.3OE-07 
7.94E-07 
2.34E-04 
5.85E-04 
I.01E-04 
1.01E-04 
2.54E-04 
2.59E-04 
1.18E-06 
5.29E-09 
3.85E-08 
2.31E-08 
B.B7E-08 
2.44E-07 
I.45E-07 
1.44E-07 
1.57E-04 
2.98E-09 
7.91E-09 
7.91E-09 
4.94E-11 
2.31E-07 
5.35E-U 


4.28E-07 
2.I9E-0B 
9.36E-10 
4.99E-05 
3.33E-09 
3.33E-09 
6.02E-05 
1.73E-06 
1.25E-05 
4.54E-05 
I.31E-04 
2.5BE-04 
2.42E-04 
1.12E-04 
7.50E-05 
3.30E-05 
S.89E-04 
9.17E-07 
1.20E-07 
4.48E-13 
9.70E-12 
2.95E-10 
4.31E-09 
2.28E-04 
4.12E-04 
3.8BE-04 
1.22E-05 
9.40E-04 
2.7BE-05 
2.B1E-05 
1.38E-05 
5.97E-04 
2.15E-04 
2.02E-O8 
9.47E-08 
4.79E-07 
4.78E-07 
4.77E-07 
I.4IE-04 
1.74E-04 
1.45E-06 
6.97E-11 
1.45E-09 
4.49E-09 
2.27E-OB 
B.99E-08 
1.20E-07 
I.21E-07 
2.1IE-06 
1.21E-09 
3.20E-09 
2.97E-09 
1.78E-I1 
1.25E-06 
6.57E-U 


1.43E-04 

1.59E-05 

1.13E-06 

9.06E-08 

5.78E-10 

5.7BE-10 

3.85E-08 

6.59E-07 

5.01E-06 

3.69E-05 

1.55E-04 

6.59E-04 

1.5BE-03 

2.07E-03 

2.13E-03 

1.B4E-03 

8.39E-04 

2.69E-04 

5.71E-05 

0.0 

1.00E-12 

5.74E-11 

1.18E-09 

4.53E-08 

2.55E-07 

4.5IE-04 

3.55E-05 

1.34E-04 

3.43E-04 

7.09E-04 

B.41E-04 

7.24E-04 

4.I0E-04 

1.93E-08 

1.11E-05 

I.93E-04 

4.45E-04 

4.45E-04 

3.34E-05 

7.84E-05 

1.19E-04 

4.45E-U 

9.27E-10 

1.34E-0B 

1.57E-07 

1.I5E-04 

2.44E-04 

2.44E-04 

3.37E-04 

4.24E-09 

3.22E-0B 

3.22E-0B 

2.49E-U 

1.97E-04 

2.71E-10 


9.89E-04 
5.08E-07 
1.71E-0S 
1.50E-09 
4.55E-08 
4.55E-08 
1.74E-06 
3.I7E-05 
2.38E-04 
8.49E-04 
2.06E-03 
3.43E-03 
4.72E-03 
4.16E-03 
2.99E-03 
1.14E-03 
2.32E-04 
3.45E-05 
3.86E-06 
2.15E-12 
1.45E-10 
l.OIE-OB 
2.50E-07 
2.76E-04 
1.38E-05 
5.59E-05 
2.15E-04 
4.57E-04 
7.99E-04 
1.52E-03 
B.22E-04 
3.51E-04 
1.04E-04 
2.69E-07 
1.45E-06 
7.07E-06 
3.9BE-05 
3.99E-05 
1.1BE-04 
1.33E-04 
1.07E-04 
4.77E-10 
8.60E-05 
5.20E-07 
2.34E-04 
B.I7E-04 
9.29E-06 
9.29E-04 
1.37E-04 
9.B1E-08 
2.84E-07 
2.84E-07 
1.05E-09 
5.14E-05 
3.74E-09 


3.93E-05 

2.21E-06 

8.6BE-08 

1.83E-10 

5.44E-09 

5.44E-09 

3.01E-07 

5.58E-04 

4.85E-05 

5.07E-O4 

1.34E-03 

4.01E-03 

7.31E-03 

4.91E-03 

4.9BE-03 

1.40E-03 

4.02E-04 

4.58E-05 

7.90E-04 

0.0 

1.13E-11 

7.36E-10 

1.93E-0B 

3. 16E-07 

4.17E-04 

3.B4E-05 

2.14E-04 

5.99E-04 

1.19E-03 

1.01E-03 

6.66E-04 

2.8BE-04 

9.40E-05 

1.41E-07 

1.45E-04 

8.9BE-06 

1.16E-05 

I.16E-05 

4.38E-05 

5.12E-05 

4.42E-05 

3.54E-10 

7.55E-09 

4.02E-08 

3.42E-07 

1.31E-04 

1.44E-04 

I.44E-04 

1.47E-04 

4.89E-09 

4.89E-08 

4.89E-08 

4.77E-11 

5.97E-05 

3.97E-10 


APPENDIX  6.4  FILE:  NAT  ABUND  PA6E  1 
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10010 

9.996E+0! 

240540 

2.360E+00 

420970 

9.600E+00 

541360 

8.900E+00 

701720 

2.190E+01 

10020 

1.500E-02 

250550 

l.OOOE+02 

420980 

2.410E+01 

551330 

l.OOOE+02 

701730 

1.620E+01 

20030 

I.300E-04 

260540 

5.810E+00 

421000 

9.60OE+0O 

561300 

1.100E-01 

701740 

3.160E+01 

20040 

l.OOOE+02 

260560 

9.175E+01 

440960 

5.500E+00 

561320 

l.OOOE-01 

701760 

1.260E+01 

30060 

7.500E+00 

260570 

2.150E+00 

440980 

1.900E+00 

561340 

2.400E+00 

711750 

9.740E+01 

30070 

9.250E+01 

260580 

2.900E-01 

440990 

I.270E+0! 

561350 

6.590E+00 

711760 

2.600E+00 

40090 

1.000E+02 

270590 

l.OOOE+02 

441000 

1.260E+01 

561360 

7.900E+00 

721740 

1.600E-01 

50100 

2.000E+01 

280580 

6.827E+01 

441010 

1.700E+01 

561370 

1.120E+01 

721760 

5.200E+O0 

50110 

8.000E+01 

280600 

2.610E+01 

441020 

3.160E+01 

561380 

7.170E+01 

721770 

1.B60E+01 

60120 

9.B89E+01 

2B0610 

I.130E+00 

441040 

1.870E+0I 

571380 

8.900E-02 

721780 

2.710E+01 

60130 

1.110E+00 

280620 

3.590E+00 

451030 

l.OOOE+02 

571390 

9.991E+01 

721790 

1.374E+01 

70140 

9.963E+0I  ' 

280640 

9.100E-0I 

461020 

l.OOOE+00 

581360 

I.900E-01 

721800 

3.520E+01 

70150 

3.660E-01 

290630 

6.920E+0I 

461040 

1.100E+01 

581380 

2.500E-01 

731 BOO 

1.200E-02 

80160 

9.976E+01 

290650 

3.080E+01 

461050 

2.220E+01 

581400 

8.B48E+01 

731810 

9.999E+01 

80170 

3.800E-02 

300640 

4.860E+0I 

461060 

2.730E+O1 

581420 

1.108E+0I 

741800 

1.300E-01 

80180 

2.040E-01 

300660 

2.790E+01 

461080 

2.670E+01 

591410 

l.OOOE+02 

741B20 

2.630E+01 

90190 

l.OOOE+02 

300670 

4.100E+00 

461100 

I.180E+01 

601420 

2.720E+01 

741830 

1.430E+01 

100200 

9.051E+01 

300680 

1.878E+01 

471070 

5.183E+01 

601430 

1.220E+01 

741840 

3.067E+01 

100210 

2.700E-01 

300700 

6.200E-01 

471090 

4.817E+01 

601440 

2.380E+01 

741860 

2.860E+01 

100220 

9.220E+0O 

310690 

6.010E+0I 

481060 

1.300E+0O 

601450 

8.300E+00 

751850 

3.740E+0I 

110230 

l.OOOE+02 

310710 

3.990E+01 

481080 

8.900E-01 

601460 

1.720E+01 

751870 

6.260E+01 

120240 

7.899E+01 

320700 

2.050E+01 

481100 

1.250E+01 

601480 

5.700E+00 

761B40 

1.800E-02 

120250 

t.OOOE+01 

320720 

2.740E+01 

481110 

1.280E+01 

601500 

5.600E+00 

761860 

1.582E+00 

120260 

1.101E+01 

320730 

7.800E+00 

481120 

2.411E+01 

621440 

3.100E+00 

761870 

1.600E+00 

130270 

l.OOOE+02 

320740 

3.650E+01 

481130 

1.220E+01 

621470 

1.510E+01 

761880 

1.330E+01 

140280 

9.223E+01 

320760 

7.800E+00 

481140 

2.870E+01 

621480 

1.130E+01 

761890 

1.610E+01 

140290 

4.670E+00 

330750 

l.OOOE+02 

481160 

7.500E+00 

621490 

1.390E+01 

761900 

2.640E+01 

140300 

3.  100E+00 

340740 

8.700E-01 

491130 

4.300E+00 

621500 

7.400E+00 

761920 

4.100E+01 

150310 

l.OOOE+02 

340760 

9.030E+O0 

491150 

9.570E+01 

621520 

2.660E+01 

771910 

3.730E+01 

160320 

9.502E+01 

340770 

7.600E+00 

501120 

l.OOOE+00 

621540 

2.260E+01 

771930 

6.270E+01 

160330 

7.500E-01 

340780 

2.350E+01 

501140 

6.700E-01 

631510 

4.79OE+01 

781900 

1.300E-02 

160340 

4.2I3E+00 

340800 

4.980E+01 

501150 

3.800E-01 

631530 

5.210E+01 

781920 

7.870E-01 

160360 

1.700E-02 

340820 

9.200E+00 

501160 

1.470E+01 

641520 

2.000E-01 

781940 

3.290E+01 

170350 

7.577E+0I 

350790 

5.069E+01 

501170 

7.750E+0O 

641540 

2.100E+00 

781950 

3.380E+01 

170370 

2.123E+01 

350810 

4.93IE+01 

501180 

2.430E+01 

641550 

1.480E+01 

781960 

2.530E+01 

180360 

3.370E-01 

360780 

3.500E-01 

501190 

8.600E+00 

641560 

2.060E+01 

781980 

7.200E+00 

180380 

6.300E-02 

360800 

2.250E+00 

501200 

3.240E+01 

641570 

1.570E+01 

791970 

l.OOOE+02 

180400 

9.960E+0I 

360820 

I.160E+01 

501220 

4.600E+00 

641580 

2.480E+01 

801960 

1.500E-01 

190390 

9.326E+01 

360830 

1.150E+01 

501240 

5.600E+00 

641600 

2.180E+01 

801980 

1.000E+01 

190400 

1.200E-02 

360840 

5.700E+01 

511210 

5.730E+0I 

651590 

l.OOOE+02 

801990 

1.685E+01 

190410 

6.730E+00 

360860 

1.730E+01 

511230 

4.270E+01 

661560 

5.700E-02 

802000 

2.310E+01 

200100 

9.694E+0I 

370850 

7.217E+01 

521200 

9.100E-02 

661580 

I.030E-01 

802010 

1.320E+01 

200420 

6.465E-0I 

370870 

2.783E+01 

521220 

2.500E+00 

661600 

2.340E+00 

802020 

2.980E+01 

200430 

1.300E-01 

380840 

5.600E-01 

521230 

8.S90E-01 

661610 

1.900E+01 

802040 

6.900E+00 

200440 

2.090E+00 

380860 

9.84OE+O0 

521240 

4.620E+00 

661620 

2.550E+01 

812030 

2.950E+01 

200460 

3.500E-03 

380870 

7.000E+00 

521250 

7.000E+00 

661630 

2.490E+01 

812050 

7.050E+01 

200480 

1.900E-01 

380880 

8.260E+01 

521260 

1.870E+01 

661640 

2.810E+01 

822040 

1.400E+00 

210450 

l.OOOE+02 

390890 

l.OOOE+02 

521280 

3.170E+01 

671650 

l.OOOE+02 

822060 

2.410E+01 

220460 

8.250E+00 

400900 

5.150E+01 

521300 

3.450E+0I 

681620 

1.400E-01 

B22070 

2.210E+01 

220470 

7.450E+O0 

400910 

1.120E+01 

531270 

l.OOOE+02 

681640 

1.56OE+0O 

822080 

5.240E+01 

220480 

7.370E+01 

400920 

1.710E+0I 

541240 

l.OOOE-01 

681660 

3.340E+01 

832090 

l.OOOE+02 

220490 

5.400E+00 

400940 

1.740E+01 

541260 

9.000E-02 

681670 

2.290E+01 

902320 

l.OOOE+02 

220500 

5.200E+00 

400960 

2.800E+00 

541280 

1.910E+00 

681680 

2.710E+01 

922340 

5.400E-03 

230500 

2.500E-OI 

410930 

l.OOOE+02 

541290 

2.640E+01 

681700 

1.490E+01 

922350 

7.200E-OI 

230510 

9.975E+01 

420920 

1.480E+01 

541300 

4. IOOE+00 

691690 

l.OOOE+02 

922380 

9.927E+01 

240500 

4.350E+00 

420940 

9.300E+00 

541310 

2.120E+01 

701680 

1.400E-01 

240520 

8.379E+01 

420950 

1.590E+01 

541320 

2.690E+01 

701700 

3.140E+00 

240530 

9.500E+00 

420960 

1.670E+01 

541340 

1.040E+01 

701710 

1.440E+01 

APPENDIX  C.l:   Simple  KSIG  Run 
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Table  9.  Miscellaneous  Input  data  for  the  simple  KSIG  run. 
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Variable 


Value 


Output  Threshold 

Considering  Fission  Product  Production? 

Power/Time  History  File 

Isotope  Name  File 

Isotope  Concentration  File 


10   grams 

No 

ZERO 

C060 

CO  INV 
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APPENDIX  C.l  FILE:  ZERO 
FLUX 

o, ooooe+oo  i.aoooE+oo  y 

END 


APPENDIX  C.l  FILE:  C060 


23  270590  250580  280580  240540  270410  290420  280430 
1270600  260590  270580  260570  250540  280620  280590  300630 
270601   2605B0   270581   250570   280410   270420   290430   1280400 


APPENDIX  C.l  FILE:  CO.INV 
270400  !.OOO0E*03 
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SIMULATED    TIME    -    O.OOOOE+OO    S 

NEUTRON    FLUX  »    O.OOOOE+OO     Ctt/CN"2*S> 


ISOTOPE 
C0-O6O 


MASS  (GRAMS) 
1 .  00O0OO0E+03 


MASS (GRAMS) 


POWER  = 
ISOTOPE 


PASE     1 
O.OOOOE+OO  (MW/UNIT3 


MASS (GRAMS) 


SIMULATED  TIME  =  3.A525E+02  D 

NEUTRON  FLUX    =  O.OOOOE+OO  (#/CM"2*S> 


ISOTOPE 
CO-O&O 


MASS (GRAMS) 
B.7674969E+02 


ISOTOPE 
NI-060 


MASS (GRAMS) 
1. 232503 1E+02 


POWER  - 
ISOTOPE 


PAGE     2 
O.OOOOE+OO  CMW/UNIT} 


MASS  I  GRAMS) 


APPENDIX  C.2:   Complex  KSIG  Run 
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Table  10.   Miscellaneous  Input  data  for  the  complex  KSIG 
run. 


Variable  Value 

Output  Threshold  10   grams 

Considering  Fission  Product  Production?         Yes 
Power/Time  History  File  FULL 

Isotope  Name  File  TEST 

Isotope  Concentration  File  INVTYP 
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APPENDIX  C.2    FILE:  FULL 


POWER 

I.4000E+01  1 
1.4OO0E+O1  3, 
1.40OOE+O1  3, 
1MOOOE+01  3, 
1 . 4000E+01  3. 
l.WOOE+ni  3. 
I.4000E+0E  3. 


5OOOE+01  D 
5000E+01  D 
5OOOE+01  D 
5O0OE+O1  D 
50OOE+O1  D 
5OO0E+O1  D 
5000E+01  D 


1.40OOE+O1 
1.4000E+01 

1.4000E+01 
0,0OO0E+O(> 
O.OOOOE+OO 
O.OOOOE+OO 
O.OOOOE+OO 
O.OOOOE+OO 


3.500OE+O1  D 
3.5000E+01  D 
5.0000E+01  D 
3.0000E+01  II 
3.0000E+01  n 
l.OOOOE+OO  H 
l.OOOOE+OO  H 
l.OOOOE+OO  H 


O.OOOOE+OO  l.OOOOE+OO  H 
O.OOOOE+OO  5.0000E+00  H 
O.OOOOE+OO  5.OOOOE+0O  H 
O.OOOOE+OO  5.0000E+00  H 
O.OOOOE+OO  4.0OO0E+OO  H 
O.OOOOE+OO  l.OOOOE+OO  0 
O.OOOOE+OO  l.OOOOE+OO  D 
END 


APPENDIX  C.2    FILE:  TEST 


112 

541351 

521331 

541360 

481310 

511290 

541290 

4541310 

501270 

521260 

1541350 

541340 

531331 

531360 

521311 

501290 

541291 

521280 

491270 

511260 

531350 

531340 

541331 

521370 

521300 

501291 

541280 

511280 

491271 

511261 

521350 

501340 

541320 

5113/0 

511300 

491290 

531280 

511281 

501271 

541260 

511350 

491340 

531320 

531361 

511301 

481290 

561330 

501280 

541270 

541240 

501350 

531341 

521320 

531370 

501300 

521291 

561331 

491280 

541271 

521340 

541341 

511320 

1551330 

491300 

551310 

561320 

481280 

481270 

511340 

531330 

501320 

531310 

4B1300 

561310 

1551340 

471280 

471270 

511341 

521330 

491320 

521310 

531300 

561311 

551341 

521271 

531260 

521360 

511330 

491320 

511310 

531301 

561300 

1551350 

531270 

531250 

511360 

501330 

511321 

501310 

531290 

541311 

551351 

521270 

541250 

501360 

491330 

551320 

491310 

521290 

541300 

(541330 

511270 

541251 

APPENDIX  C.2    FILE;  INVTYP 


922350  1.5398E+04 
922380  4.9785E+05 
80160  3.4471E+04 
90170  1.3131E+01 
80180  7.0490E+0I 
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SIMULATED  TINE  =  0.00006+00  S 

NEUTRON  FLUX    =  O.OOOOE+00  ttt/CM'  2*S3 


MASS  (GRAMS! 


ISOTOPE    MASS (GRANS) 


PAGE     1 
PUWER  ^  O.OOOOEKJO  IMW/UNITJ 


MASS (GRAMS) 


SIMULATED  TIME  ■  3.5000E+01  D 

NEUTRON  FLUX    =  2.1953E+14  tft/CM  -21SJ 


XE-135 
OS- 1  35 


MASS (GRAMS) 


B.4609615E-02 
5.3616074E+00 


CS-133 
XE-133 


MASS (GRAMS) 


1.  44521 9BE«>1 
4. 1371241E+O0 


POWER  = 
ISOTOPE 


CS--134 
XE-131 


PAGE     2 
.40006+01  CMW/UNITJ 


MASS (GRAMS) 


4 . 556O360E-02 
5.6217105E*0o 


SIMULATED  TIME 
NEUTRON  FLUX 


7.00OOE+01  D 
2.1891E+14  {»/CM'-2»S} 


ISOTOPE    MASS (GRAMS) 


XE-133 
CS-135 


B.50212B7E-02 
1.0826697E+01 


CS-133 
XE-133 


MASS (GRAMS) 


3.35891B4E+01 
4. 1B44413E+00 


PAGE     3 
POWER  -  1.4000E+01  {MW/UNITJ 


CS- 1 34 
XE-131 


MASS (GRAMS) 


2.2915160E-01 
1.373BS70E+01 


SIMULATED    TIME    =■     1 . 0500E+02    D 

NEUTRON    FLUX  -    2.1679E-U4     (#/CM"2»S> 


XE-135 
CS-135 


MASS (GRAMS) 


B.53B79B1E-02 
1.63112416+01 


I SOTOPE  MASS ( GRAMS ) 


CS-133 
XE-133 


5.2617437E+01 
4. IB31621E+00 


PAGE     4 
POWER  -  1.4000E+G1  (MW/UNITJ 


CS-134 
XE-131 


MASS (GRAMS) 


5.5079306E-01 
2.  1897864E+01 


SIMULATED  TIME 
NEUTRON  FLUX 


1.4000E+02  D 
2.19106+14  (#/CM's2*S> 


XE-135 
CS-135 


MASS (GRAMS  I 


8.55969146-02 
2.  1BO7O306+O1 


ISOTOPE    MASS (GRAMS) 


CS-133 
XE-133 


7.  14899366+01 
4. 181S01B6+00 


POWER  - 
ISOTOPE 


CS-134 
XE-131 


PAGE     5 
1.4000E+01  <MW/UNITJ 


MASS (GRAMS) 


1 . 0034750E+00 
2. 99670396+01 


SIMULATED  TIME  =  1 . 7500E+02  D 

NEUTRON  FLUX    -  2.19766+14  £#/CM"2«S> 


XE-13S 
CS-135 


MASS (GRAMS) 


B.5674355E-02 
2.73074276+01 


CS-13 
XE-13 


MASS (GRAMS) 


9.0206496E+01 
4. 179B94BE+00 


PAGE     6 
POWER  -  1.40006+01  <MW/UNIT) 


I  SO  TOPE    MASS ( GRAMS ) 


CS-134 
XE-131 


1 .581 1 1996+00 
3.  79335146+01 


SIMULATED  TIME  »  2. 10006+02  D 
NEUTRON  FLUX    -  2.20726+14  C#/CM" 


XE-133 
CS-133 


MASS (GRAMS) 


8.56419366-02 
3.28071396+01 


CS-13 
XE-1  a 


'*s; 

MASS  (GRAMS  I 


1. 08766726+02 

4. 1703219E+O0 


PAGE 

POWER  =» 

1 . 4000E+01  CMW/UNIT 

I SO  1 ORE 

MASS ( GRAMS > 

CS- 1 34 

2. 27B4310E+00 

XE-131 

4.3791VL'3E+01 
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SIMULATED  TIME 


2.45(.>0E+O2  D 


NEUTRON 

FLUX          »    2.2194E< 

>14     t#/CM 

■2«S> 

POWER    •= 

1  KOI OPE 

MASS  (GRAMS) 

1SUTUFE 

MASS (GRAMS) 

ISOTOPE 

XE-135 

8.S517343E-02 

CS-133 

1.2716969E+02 

CS-134 

CS-135 

3.8301980E+01 

XE-133 

4.  17676S6E-HXI 

XE-131 

PAGE     B 
1.4O0OE+01  iNW/UWIW 


MASS (GRAMS) 


3.0907227E-KX' 
5.3537752E+01 


SIMULATED  TIME  =  2. 8000E*02  D 

NEUIRON  FLUX    =  2.233SE-H4  tt)/CM"2«S} 


XE-135 
CS-135 


MASS  (GRAMS) 


8.5315224E-02 
4.378B493E+01 


CS-133 
XE-133 


MASS (GRAMS) 


1.454141 1E+02 
4. 1752126E+00 


•   PAGE    <; 
POWER  ■  1.4000E+01  (MW/UNIT3 


CS-134 
XE-131 


MASS (GRAMS) 


4.013B393E+0U 
6. 1166872E+01 


SIMULATED  TIME  -  3.  1500E+02  D 

NEUTRON  FLUX    -  2.2500E+14  (»/CM'2«S; 


XE-133 
CS-135 


MASS (GRAMS) 


8.5047B50E-02 
4.92i4B10E«ll 


ISOTOPE 
CS-133 


MASS (GRAMS) 


1 .  6349837E+02 
4. 1 73653 1E+00 


PAGE    10 
POWER  -  1.40O0EK31  CMW/UNIT) 

I SOT  OPE    MASS ( GRAMS ) 


CS-134 
XE-131 


5.0439038E+00 
6.8675477E-HM 


SIMULATED    TIME    -    3.6500E+02    D 

NEUTRON    FLUX  -    2.2761E+14     <*/L'M  -2»S> 


XE-135 
CS- 1 35 


MASS (GRAMS) 


8.4i42997E-02 
5. 7111967E+0I 


ISOTOPE    MASS  (GRAMS) 


CS-133 
XE-133 


1 . B904409E+02 
4. 1715069E+00 


POWER  - 
ISOTOPE 


CS-134 
XE-131 


PAGE    1 1 
1.40O0E+01  (MW/UNIT) 


MASS  <  GRAMS ) 


6.6936095E+00 
7.9184U1BE+01 


SIMULATED  TIME  =  3.i502E*02  D 

NEUTRON  FLUX    -  0.0000E*00  Clt/CM"2»S> 


XE-135 
CS-135 


MASS (GRAMS) 


9.  2127222E-02 
5.7113356E+01 


CS-133 
XE-133 


MASS  (GRAMS) 


1.B905557EI-02 
4.  171S103E-HIO 


PAGE    12 
POWER  -  O.OOOOE+00  (MW/UNIT) 


CS-134 
XE-131 


MASS (GRAMS) 


6. 6935604E+00 
7.91B9  317E+01 


SIMULATED  TIME  -  3. 6504E+02  D 

NEUTRON  FLUX    =  O.OOOOE+OO  t»/CM"2*S! 


ISOTOPE    MASS  (GRAMS) 


XE-135    9.8429224E-02 
CS-135    5. 71 190O7E+01 


CS-133 
XE-I  33 


MASS ( GRAMS ) 


1  . B906 /05E+O2 
4.  1714U74E*'K> 


POWER  -  O. 00006 
I  SO  TOPE    MASS ( GRAMS ) 


PAGE    1 3 
(MW/UNI1 ) 


CS-134 
XE-131 


6.  6935024E+00 
7.9I94&I3E+01 
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SIMULATED  TIME  «  3.45066*02  D 

NEUTRON  FLUX    -  O.OOOOE+OO  (tt/CH'2IS) 


XE-135 
CS- I  55 


MASS < GRAMS) 


1 .  0934509E-01 
5.  /126967E+0! 


MASS (GRAMS) 


1 . 89090U2E  + 02 
4.  IV076H6C4O0 


POWER  - 
ISOTOPE 


CS-134 

XE-131 


PAGE    1 4 
O.OOOoE+00  (NW/UNI1 } 


MASS  I  GRAMS) 


6.69  53635E+OU 
7.V2O0192E+0I 


SIMULATED  TIME  ■  3.6513E+02  D 

NEUTRON  FLUX    =  O.OOOOE+oO  (»/CM'2*SJ 


XE-133 

CS-135 


MASS ( GRAMS ) 


1. 1747130E-01 
5.713563/E+01 


CS- 1 33 
XE-133 


MASS ( GRAMS ) 


1  .  89 1 1 298E+02 
4. 169490SE+00 


■  PAGE    15 

power  =■  o.ooooe+oo  (mw/unit; 


CS-134 
XE-131 


MASS (GRAMS) 


6.6931995E+0O 
7.9215743E+01 


SIMULATED  TIME  =  3.6517E+02  D 

NEUTRON  FLUX    -  0*00006+00  (#/CM"2*S> 


XE-135 
CS-135 


MASS (GRAMS) 


1  .  2339179E-01 
5.  7144836E+01 


CS- 1 33 
XE-133 


MASS (GRAMS) 


I.8913593E-1-02 
4. 1675682E+00 


PAGE    1 4 
POWER  =  O.OOOOE+OO  (MW/UNIT) 


ISOTOPE    MASS (GRAMS) 


CS-134 
XE-131 


6.6930159E+00 
7.9226262E+01 


SIMULATED  TIME  -  3.6521E+02  D 

NEUIRON  FLUX    »  O.OOOOE+OO  (tt/CM~2#SJ 


XE-135 
CS-135 


MASS  (GRAMS) 


1.27429&IE-01 
5.7154413E+01 


CS-133 
XE-133 


MASS (GRAMS) 


1 . 89 1 5B8  7E+02 
4. 165O061E+0O 


PAGE    17 
POWER  =  O.OOOOE+OO  (MW/UNIT) 


CS-134 
XE-131 


MASS (GRAMS) 


6.6928167E+00 
7.9236750E+01 


SIMULATED  TIME 
NEUTRON  FLUX 


3.6542E+02  D 

0.  OOOOE+OO  t*/CM"2*S> 


XE-135 
CS- 1 35  • 


MASS  (GRAMS I 


1.281 1550E-01 
5.7203971E+01 


CS-133 
XE-133 


MASS (GRAMS  I 


1.8927327E+02 
4. 143261 1E+00 


POWER  - 
ISOTOPE 


CS-134 
XE-131 


PAGE    18 
O.OOOOE+OO  (MW/UNIT) 


MASS  (GRAMS) 


6.6916820E+00 
7 . 928B700E+0 1 


SIMULATED  TIME  -  3.63436+02  D 

NEUTRUN  FLUX    -  O.OOOOE+OO  C»/CM"2*S) 


MASS (GRAMS) 


XE-135    1. 1182138E-01 
CS-135    5.725O010E+01 


CS-1? 
XE-1  : 


MASS (GRAMS) 


1.U93B6B0E+02 
4.  lOBS54UE>0(> 


POWER  =  0.0000E+ 


PAGE    1 9 

(MW/UNITJ 


CS-134 
XE-131 


MASS  (GRAMS) 


6.69O444OE+00 
7. 9339B39E+0I 
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SIMULATED     TIME 
NEUTRON    FLUX 


3.65B3E+02    D 
O.OOOOE+OO     Ctt/CN'S2*S> 


ISOTOPE  MASS(GRAMS)  ISOTOPE 

XE-135  9.0769470E-02  CS-133 

CS-135  5.72BB&72E+01  XE-I33 


MASS (GRAMS) 


1 . B949939E+02 
4.0632796E+00 


PAGE    20 
POWER  -  O.OOOGE+OO  (MW/I.INIT) 


MASS  (GRANS) 


CS-134    6.6B91748E+0O 
XE-131    7.939.J171E+01 


SIMULATED  TIME  -  1.00216*00  Y 

NEUTRON  FLUX    »  O.OOOOE+00  (»/CN  -2»S> 


XE-135 
CS-135 


MASS  < GRAMS) 


7.436S715E-02 
5.7313B26E+01 


CS-133 
XE-133 


MASS (GRANS) 


1 . S938842E+02 
4.0208226E+00 


POWER  - 
ISOTOPE 


CS-134 
XE-131 


PAGE    21 
O.OOOOE+00  (NW/UNIT) 


MASS (GRAMS) 


6.A8B1525E+00 
7.9429B58E+01 


SIMULATED  TIME  -  1 .  0048E+00  Y 

NEUTRON  FLUX    -  O.OOOOE+00  <»/CM~2«S> 


MASS (GRANS) 


XE-135    1.6B314B4E-02 
CS-135    5. 73B6805E+01 


ISOTOPE    MASS (GRAMS) 


cs-i: 

XE-i: 


1.9O0991BE+02 
3.6938346E+00 


PAGE    22 
POWER  -  O.OOOOE+00  (MW/UNIT) 

ISOTOPE    MASS  (GRAMS) 


CS-134 
XE-131 


6.6B20021E+00 
7.9657350E+01 


SIMULATED  TIME  -  1.0075E+00  Y 

NEUTRON  FLUX    -  O.OOOOE+00  C#/CM"2»SJ 


I SOTOPE 

MASS  (GRANS) 

ISOTOPI 

XE-135 

3.0953048E-03 

CS-133 

CS-135 

5.7401789E+01 

XE-133 

NASS( GRANS) 


I . 9056260E+02 
3.3177984E+00 


POWER  - 
ISOTOPE 


CS-134 
XE-131 


PAGE    23 
O.OOOOE+OO  IMW/UNIT) 


MASS (GRAMS) 


6.6758550E+00 
7.9B67242E+01 
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ABSTRACT 

During  the  operation  of  a  nuclear  reactor,  a  large  variety  of 
radioactive  isotopes  are  produced.  With  this  production  comes  the  need 
to  predict  the  concentrations  of  these  isotopes.  This  task  has 
traditionally  been  performed  by  the  computer  code  0RIGEN2. 

0RIGEN2  is  a  large  computer  code  which,  not  only  predicts  isotope 
inventories,  but  also  gives  tables  ranging  from  the  gamma-ray  emissions 
from  these  isotopes  to  their  ingestion  hazard.   Some  of  the  drawbacks 
of  this  code  are:   1)  it  requires  a  large  computer;  2)  it  uses  a  large 
amount  of  computer  time;  and  3)  it  provides  a  large  amount  of  output. 

The  objective  of  this  research  was  to  overcome  the  drawbacks  of 
0RIGEN2  and  to  reduce  the  cost  of  isotope  inventory  calculations.   This 
was  accomplished  by  the  Kansas  State  Isotope  Generation  code  (KSIG) . 
KSIG  is  an  isotope  inventory  code  written  for  a  microcomputer  (HP9816). 
Several  features  of  KSIG  are:  1)  its  exclusive  use  of  the  Bateman 
equations  and  their  appropriate  approximations  for  the  inventory 
calculations;  2)  the  large  size  of  the  problem  being  performed  on  a 
microcomputer;  and  3)  its  extended  use  of  temporary  storage  vectors  as  a 
means  of  reducing  the  volume  of  memory  required  to  perform  these 
calculations. 

KSIG  produced  exactly  the  same  results  as  a  simple  hand  calculation 
and  varied  by  no  more  than  six  percent  when  compared  to  0RIGEN2.   The 
typical  range  of  variation  was  from  .5  to  3  percent.   Output  for  this 
run  was  reduced  from  190  to  27  pages. 

The  calculation  time  of  KSIG  was  its  one  drawback,  with  an  average 
calculation  requiring  hours  of  computational  effort.   However,  when 
comparing  the  cost  of  computer  time  on  a  large  computer  to  the  purchase 


and  maintenance  cost  of  a  microcomputer,  the  microcomputer  more  than 
pays  for  itself  with  approximately  100  KSIG  runs.   Therefore  KSIG  meets 
its  final  objective  and  demonstrates  itself  as  a  useful  tool  for 
predicting  isotope  inventories. 


;.. 


